Предмет: Информатика, автор: neowilo21

Помогите с информатикой очень срочно!!! 25 баллов дам Pascal abc

Приложения:

Ответы

Автор ответа: aaaaaaaaaaaaaaabaa
1

Ответ:

var

 a: array[1..5] of integer;

 i,b: integer;

begin

 b:= 0;

 for i:= 1 to 5 do

   readln(a[i]);

 write(a);

 for i:=1 to 5 do

   begin

     if a[i] mod 2 = 1 then

       b:= b + 1;

   end;

 write('Количество нечетных чисел: ',b)

end.

Похожие вопросы
Предмет: Биология, автор: tima66666