Pascal
Дан массив А размерности 4x5,элементы которого случайные числа из [-10;45].Найти сумму положительных элементов массива

Question

Информатика: Pascal Дан массив А размерности 4x5,элементы которого случайные числа из [-10;45].Найти сумму положительных элементов массива

1ирочка1 · Answer

var A: array [1..5,1..4] of integer;

var i,j,sum: integer;

begin

sum:=0;

randomize();

For i:= 1 to 5 do

begin

For j:= 1 to 4 do

begin

A[i,j]:=random(56)-10;

if (A[i,j]>0) then sum:=sum+A[i,j];

write(A[i,j]:4);

end;

writeln();

end;

writeln('Сумма положительных элементов массива: ',sum);

end.