(паскаль) разработайте программу, определяющую количество нечётных чисел в целочисленном массиве из 17 элементов. массив заполнить любым и вывести на экран в одну строку

inessa2012 inessa2012    1   05.07.2019 07:20    0

Ответы
генетика2 генетика2  28.07.2020 20:10
Var
 a:array[1..17] of longint; 
 n,i,j:longint;
begin 
 For i:=1 to 17 do
 begin 
  Read(a[i]); 
  if odd(a[i]) then inc(n);
end;
writeln(n);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика