Даны натуральное число n и последовательность целых чисел а1, а2,…,аn.. определить количество тех членов последовательности, которые нечетны . найти сумму членов последовательности, кратных 11. составить блок-схему алгоритма, написать программу.

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

 kol, s, i, n : longint;

begin

readln(n);

for i:=1 to n do read(a[i]);

s := 0;

kol := 0;

for i:=1 to n do 

begin

  if (a[i] mod 11 = 0) then s := s + a[i];  // summa elementov

  if (a[i] mod 2 = 1) then kol := kol + a[i];  // kolichestvo nechetnyx

end;

writeln (kol, ' ', s);

end;

после //  нужно удалить ... сорри, что нет блок схемы