Написать программу, которая подсчитывает количество четных индексов положительных элементов введенного с клавиатуры массива целых чисел.

var   a:array [1..100] of integer;   i,n,k:integer; begin   write ('Razmer massiva: ');readln(n);   k:=0;    for i:=1 to n do begin     write ('A[',i,'] = ');readln(a[i]);     if (a[i]>0) and (i mod 2 = 0) then k:=k+1;   end;   writeln ('Kol-vo: ',k);   readln; end.

a - массив из n элементов k - количество четных индексов положительных элементов i - цикловая переменная, также индекс элемента массива Язык программирования: Паскаль var a : array [1..100] of integer; n, k, i : integer; begin k := 0; readln (n); for i:=1 to n do begin readln (a [ i ]); if (i mod 2 = 0) and (a [ i ] > 0) then k := k + 1; end; writeln (k); end.