ABC Paskal Вывести ** экран через запятую массив из 20 целых чисел, в котором первый...

Question

ABC Paskal
Вывести на экран через запятую массив из 20 целых чисел, в котором первый элемент равен 25, а каждый последующий больше предыдущего на 2. Вычислить сумму элементов с четными индексами.

Answer 1

Var a:array [1..20] of integer;
i,k,s:integer;
begin
k:=25;
for i:=1 to 20 do
begin
a[i]:=k;
k:=k+2
end;
for i:=2 to 20 do
if i mod 2 = 0 then s:=s+a[i];
writeln (a);
writeln (s)
end.