В двумерном массиве 5×5 найти количество положительных элементов
В двумерном массиве 5×5 найти количество положительных элементов
Гость
Ответ(ы) на вопрос:
Гость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.
Гость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.
Не нашли ответ?
Похожие вопросы