Помогите, пожалуйста, с задачей в Pascal: "Заполнить значениями первые 50 элементов...

Question

Помогите, пожалуйста, с задачей в Pascal:
"Заполнить значениями первые 50 элементов массива следующим образом:
A [1]=1
A [2]=5
A [3]=9
A [4]=13
..............
A [50]=x
Определите их сумму. Выведите на экран значения 10, 20, 30, 40 элементов, стоящих в нечетных позициях"

Comments

На экран вывести можно, например, 13-ый, 25-ый, 33-ий и 47-ой элементы?

Answer 1

Const N = 50;
var a: array[1..N] of integer;
sum, i: integer;
begin
sum := 0;
a[ 1 ] := 1;
for i := 2 to N do begin
a[ i ] := a[ i - 1 ] + 4;
sum := a[ i ] + sum;
end;
for i := 1 to N do
writeln('A[ ', i, ' ]: ', a[ i ]);
writeln;
writeln('Сумма элементов массива: ', sum);
writeln('Значения 10, 20, 30, 40 элементов, стоящих в нечетных позициях: ' );
writeln('A[ 13 ] = ', A[13],', A[ 25 ] = ', A[25], ', A[ 37 ] = ', A[37], ', A[ 49 ] = ', A[49]);

end.