Question

Вдвумерном целочисленном массиве вычислить сумму положительных элементов третей строки массива

Answer 1

Решение смотри во вложении

Answer 2

Const
n=4;
m=4;
var sum,i,j:integer;
mass:array[1..n , 1..m] of integer;
begin
writeln('Введите числа');
for i:=1 to n do
begin
for j:=1 to m do
begin
mass[i,j]:=random(60)-20;
write('mass[',i,',',j,']= ',mass[i,j]);
writeln;
end;
end;
for j:=1 to m do
if (mass[3,j]>0) then sum:=sum+mass[3,j];
writeln('Сумма третьего столбца равна ',sum);
end.