Question

ПОЖАЛУЙСТА, ПОМОГИТЕ СО 2,4 И 5 ЗАДАЧАМИ! PASCAL

Answer 1

Решение 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.