Подсчитать количество четных элементов и вывести их всех на экран

var i,x,y:integer;

s:array [1..10] of integer;

begin

for i:=1 to 10 do

read(s[i]);

for i:=1 to 10 do

if s[i] mod 2=0 then

begin

writeln (s[i]);

y:=y+1;

end;

writeln ('количество четных чисел = ',y)

end.

Составить программу нахождения количества элементов целочисленного массива с нечетными индексами, запись которых оканчивается на 5.
const n=30;
var a: array [1..n] of integer;
k,i: integer;
begin
cls;
k:=0;
for i:=1 to n do begin
read (a[i]);
if (a[i] mod 10=5) and (i mod 2=1)
then k:=k+1;
end;
writeln(k);
end.

Найти произведение элементов имеющих нечетный индекс.

Const n=10;

Var a:array[1..n] of integer;

i, p: integer;

begin

randomize;

p:=1;

for i:=1 to n do begin

a[i]:=random(11)-3; //заполняем массив а случайными числами

write (a[i],’ ‘); //выводим заполненный массив

end;

for i:=1 to n do

if i mod 2=1 then

p:=p*a[i] //находим произведение элементов массива а имеющих нечетный индекс

writeln (s);

end.

Дан массив целых чисел.

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

Var X: Array[1..20] Of Integer;

i, n, k, A: Integer;

Begin

Write (‘n=’); Readln (n);

For i:=1 To n Do Readln (X[i]); {ввод массива}

Write (‘A=’); Readln (A); k:= 0;

For i:=1 To n Do {обработка массива}

If (X[i] >0) and (X[i] <= A) Then k:=k + 1;

Writeln (‘k=’, k);

End.

Найти номера четных элементов, стоящих на нечетных местах

Var X: Array[1..20] Of Integer;

i, n: Integer;

Begin

Write (‘n=’); Readln (n);

For i:=1 To n Do Readln (X[i]); {ввод массива}

For i:=1 To n Do {обработка массива}

If (X[i] mod 2 = 0) and (i mod 2<>0) Then

Write (i)

End.