Пожалуйста, помогите решить вторую задачу. В Pascal

01.01.2001

Пожалуйста, помогите решить вторую задачу. В Pascal
Вот мои наброски.
program two;
var i, j, k, N, tmp: integer;
begin
k := 0;
writeln('Введите размерность матрицы');
readln(N);
writeln('Теперь вводите все элементы массива');
for i := 1 to N do
begin
for j := 1 to N do
begin
readln(tmp);
if tmp > 0 then
k := k + 1;
end;
writeln('Количество положительных элементов ', i,'й строки = ', k);
k := 0;
end;
end.

  • program two;
    var i,j,n:integer; m:longint; a:array[1..10,1..10]of integer; f:text;
    begin
    write('Введите размер матрицы: '); readln(n);
    writeln('Введите значения элементов по строкам, разделяя элементы строки');
    writeln(' пробелами и заканчивая ввод каждой строки нажатием Enter'); writeln;
    for i:=1 to n do
    begin write('Строка ',i:2,': '); for j:=1 to n do read(a[ i,j]); readln end;
    assign(f,'result.txt'); rewrite(f);
    for i:=1 to n do begin m:=0; for j:=1 to n do m:=m+a[ i,j]; writeln(f,m:8) end;
    close(f)
    end.

Вас заинтересует