10 КЛАСС! ПАСКАЛЬ АБС!! СРОЧНО!! ПОМОГИТЕ ПОЖАЛУЙСТА! Дан массив А(n). Опередлите...

Question

10 КЛАСС! ПАСКАЛЬ АБС!! СРОЧНО!! ПОМОГИТЕ ПОЖАЛУЙСТА!

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

Answer 1

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.