1) Задан массив из 11 целых чисел. Найти сумму элементов массива, кратных 5

2) Задан массив из 11 целых чисел. Посчитать количество нечётных элементов массива.

3) задан массив из 9 целых чисел. Вывести на экран чётные элементы

1)

program chik;

var a:array[1 ... 100]of integer;

i, s:integer;

begin

for i:=1 to 11 do

begin

read (a[i]) ;

end;

s:=0;

for i:=1 to 11 do

begin

if (a[i] mod 5=0) then s:=s+a[i];

end;

write (s) ;

end.

2)

program chik2;

var a:array[1 ... 100]of integer;

i, s:integer;

begin

s:=0;

for i:=1 to 11 do

begin

read (a[i]) ;

end;

s:=0;

for i:=1 to 11 do

begin

if (a[i] mod 2=1) then s:=s+1];

end;

write (s) ;

end.

3)

program chik3;

var a:array[1 ... 1000]of integer;

i:integer;

begin

for i:=1 to 9 do

begin

read (a[i]) ;

end;

for i:=1 to 9 do

begin

if (a[i] mod 2=0) then write (a[i],' ') ;

end;

end.