давно
Старший Модератор
31795
6196
18.05.2016, 18:02
общий
это ответ
Здравствуйте, amelya.kuro!
Смотрите приложение:
[code lang=pascal h=200]const
n=20;
var
c,d,e:integer;
z:array[1..n]of integer;
begin
for c:=1 to n do
begin
z[c]:=25-random(50);{создаем элемент}
if odd(z[c])then inc(d) else inc(e);{считаем чет/нечет}
write(z[c]:4);{выводим элемент}
end;
writeln;
writeln('even:',d:5);{четные}
writeln('odd :',e:5);{нечетные}
end.[/code]
Удачи!
Об авторе:
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.