Задание:
Дан двумерный массив 4 из 4 строк и 7 столбцой. Найти сумму положительных элементовмассива.
Решение:
Uses crt; const n=4; m=7; var a: array[1… n,1… m] of integer; i,j,s: integer; beginrandomize; s: =0; for i: =1 to n dofor j: =1 to m dobegina[i,j]: =random (101) -50; write (a[i,j]: 4); end; writeln; for i: =1 to n dofor j: =1 to m doif (a[i,j]>0) then s: =s+a[i,j]; writeln (s); end.
Знаете другой ответ?