pokemanbr
Решение 5 задачи, решу 2 и 4, если ответите на вопрос в обсуждении. Опять же задачи максимально ущербно сформулированы, и тут нет ответа на такие вопросы как "выводить ли сам массив на экран, вещественные или целые использовать типы, как вообще ввод и вывод должен работать", поэтому не жаловаться на неверное построение задачи.
program abc; var a:array[1..100] of integer; i,chet,nechet:integer; begin nechet:=0; chet:=0; for i:=1 to 100 do a[i]:=random(99)+1; for i:=1 to 100 do if(odd(a[i])=true) then inc(nechet) else inc(chet); writeln(chet,' ',nechet); end.
Answers & Comments
Опять же задачи максимально ущербно сформулированы, и тут нет ответа на такие вопросы как "выводить ли сам массив на экран, вещественные или целые использовать типы, как вообще ввод и вывод должен работать", поэтому не жаловаться на неверное построение задачи.
program abc;
var
a:array[1..100] of integer;
i,chet,nechet:integer;
begin
nechet:=0;
chet:=0;
for i:=1 to 100 do
a[i]:=random(99)+1;
for i:=1 to 100 do
if(odd(a[i])=true) then inc(nechet)
else inc(chet);
writeln(chet,' ',nechet);
end.