Меню сайта

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

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