Меню сайта

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

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