составить программу вывода N случайных целых чисел диапазона от 0 до 50. определить сколько среди них четных, а сколько нечетных

1

Ответы и объяснения

Лучший Ответ!
2014-01-17T21:56:09+04:00
Program asd;
USES crt;
var A:array[1..100] of integer;
 i,n,k,k1:integer; 
BEGIN
 Randomize; 
Clrscr; 
Writeln('Введите кол-во чисел: '); 
 Readln(n); 
For i:=1 to n do 
begin   
  A[i]:=Random(50);     
 Write(A[i]:4); 
end; 
Writeln; 
 For i:=1 to n do 
begin 
 If A[i] mod 2=0
then k:=k+1 else 
 k1:=k1+1; 
 end; 
Writeln('Кол-во четных: ',k,'. Кол-во не четных: ',k1); 
END.