Дан двумерный массив 4 из 4 строк и 7 столбцой. Найти сумму положительных элементов массива.

Question

Информатика

Васильюшка

17 марта, 18:13

Дан двумерный массив 4 из 4 строк и 7 столбцой. Найти сумму положительных элементов массива.

+4

Ответы (1)

Знаете ответ на вопрос?

Декабрина · Answer 1

Uses crt;

const n=4; m=7;

var a:array[1 ... n, 1 ... m] of integer;

i, j, s: integer;

begin

randomize;

s:=0;

for i:=1 to n do

for j:=1 to m do

begin

a[i, j]:=random (101) - 50;

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

end;

writeln;

for i:=1 to n do

for j:=1 to m do

if (a[i, j]>0) then s:=s+a[i, j];

writeln (s) ;

end.