Составьте программу вычисления суммы положительных элементов матрицы A

Question

Лонг

Информатика

27 июня, 11:46

Составьте программу вычисления суммы положительных элементов матрицы A

+4

Ответы (1)

Знаешь ответ на этот вопрос?

Софья Горбунова · Answer 1

const n = 4; var a : array[1 ... n, 1 ... n] of integer; i, j : byte; s : integer; begin s : = 0; randomize; writeln ('матрица'); for i : = 1 to n do begin for j : = 1 to n do begin a[i, j] : = random (10) - 5; write (a[i, j]:4); if a[i, j] > 0 then s : = s + a[i, j] end; writeln end; writeln ('сумма положительных: ', s) end.