давно
Старший Модератор
31795
6196
29.05.2008, 18:02
общий
это ответ
Здравствуйте, Верещагин Михаил!
Программа в приложении.
Удачи!
Приложение:
const n=15;
var
a:array[1..n]of integer;
b,c:integer;
begin
randomize;
c:=0;
for b:=1 to n do
begin
a[b]:=random(200);
write(a[b]:4);
inc(c,ord(not odd(a[b])));
end;
writeln;
writeln(‘number:‘,c:5);
end.
Об авторе:
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.