Информатика, 9 класс, Паскаль авс
Найти сумму всех четных элементов массива из 10 целых чисел ,стоящих на четных местах.

vara: array[1..10] of integer;s, i: integer;beginfor i:=1 to 10 dobegina[i]:= random(50)+1;if (a[i] mod 2 = 0) and (i mod 2 = 0) thens:=s+a[i];writeln(a[i])end;writeln('Сумма: ', s)end.