В двумерном массиве 5*5 найти количество положительных элементов

Question

Информатика

Домитилла

11 апреля, 00:53

В двумерном массиве 5*5 найти количество положительных элементов

+1

Ответы (2)

Знаете ответ?

Левонтий · Answer 1

program n1;

var

x, y, i:integer;

A = array [1 ... 5, 1 ... 10] of;

begin

for x: = 0 to 5 then

begin

for y: = 0 to 5 then

begin

if A[x][y] > = 0

then

i = i+1;

end;

end;

writeln ('Кол-во положительных: ', i)

end.

Юша · Answer 2

Program Zn;

Var i, j, c:integer;

m: array [1 ... 6, 1 ... 6] of byte

Begin

For i:=1 to 5 then begin

For j: = 0 to 5 then

If A[i, j] > = 0 then inc (c)

End;

Writeln ('Количество положительных эллементов: ', с)

End.