Меню сайта

Задача №27
Дан двумерный массив —nхmэлементов, найти количество положительных чисел.
Program -dmas_3-
uses crt-
const n=3-m=4-
Var a:array[1..n,1..m] -of integer-
k,i,j:integer-
Begin
Randomize-
k:=0-
For i:=1 to n do begin —
For j:=1 to m do
begin
a[i,j]:=random(100)-50- —
write(a[I,j]:4)-
if a[i,j]&gt-0 then —
k:=k+1-
End-
Writeln-
end-
Writeln(‘Кол. пол. элементов =’,k)-
Readln-
End.
Категория: Массивы | Дата: 18.12.12

Меню раздела
Блок