ABC Paskal
Вывести на экран через запятую массив из 20 целых чисел, в котором первый элемент равен 25, а каждый последующий больше предыдущего на 2. Вычислить сумму элементов с четными индексами.
ABC Paskal
Вывести на экран через запятую массив из 20 целых чисел, в котором первый элемент равен 25, а каждый последующий больше предыдущего на 2. Вычислить сумму элементов с четными индексами.
Вывести на экран через запятую массив из 20 целых чисел, в котором первый элемент равен 25, а каждый последующий больше предыдущего на 2. Вычислить сумму элементов с четными индексами.
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
const n=20;
var a:array[1..n] of integer;
i,j,s:integer;
begin
a[1]:=25;
for i:=2 to n do
a[i]:=a[i-1]+2;
for i:=1 to n do write(a[i]:4);
writeln;
s:=0;
for i:=1 to n do
if i mod 2=0 then s:=s+a[i];
writeln('s = ',s);
end.
Результат:
25 27 29 31 33 35 37 39 41 43 45 47 49 51 53 55 57 59 61 63
s = 450