1. Массив из 15 частей задан случайными целыми числами в спектре

Паскаль? Бейсик? Си?

Var a: array [1..15] of integer;
i, sum, k: integer; sa: real;
Begin
For i:=1 to 15 do
a[i]:=Random(21)-10;
writeln('Начальный массив:');
For i:=1 to 15 do
write  (a[i], ' ');
writeln;
sum:=0; сначало сумме присваивается значение 0
k:=0;  сначало счетчику присваивается значение 0
For i:=1 to 15 do
if (a[i] mod 2=0) and (i mod 2=1) then
begin
sum:=sum+a[i]; подсчет суммы
k:=k+1; подсчет количества частей
end;
sa:=sum/k; вычисление среднего арифметического
writeln('Среднее арифметическое четных частей массива, стоящих на нечетных местах = ', sa:4:2);
End.