Var
a: array[1..1000,1..1000] of integer;
i,j,s,n,m: integer;
begin;
write ('Введите количество строк: ');
readln (n);
write ('Введите количество столбцов: ');
readln (m);
s:=0;
for i:=1 to n do begin
for j:=1 to m do begin
a[i,j]:=random(-20,20);
write (a[i,j]:4);
end;
writeln;
if a[i,m] >= 0
then s:=s+a[i,m];
end;
writeln;
writeln ('Сумма положительных элементов последнего столбца = ',s);
end.
------------------------Результат:-------------------------
Введите количество строк: 5
Введите количество столбцов: 4
-20 14 10 13
0 -17 19 -4
-1 16 18 17
10 -8 -15 16
5 18 3 9
Сумма положительных элементов последнего столбца = 55
