Опубликовано 09.06.2017 по предмету Информатика от Гость >> <<

Дан массив Аn определить количество нечетных элементов массива, стоящих на четных местах вывести на экран исходный массив и найденное количество

помогите

Ответ оставил Гость

const n = 15;
var
  a: array[1..n] of integer;
  i, count: integer;
begin
  for i := 1 to n do begin
    a[i] := random(100);
    write(a[i], );
    if(i mod 2 = 0) and (a[i] mod 2 <> 0) then inc(count);
  end;
  writeln;
  writeln([, count, ]);
end.