Составить программу вычисления арифметической прогрессии числовой последовательности. Где кол-во элементов и сами элементы вводятся с клавиатуры?

Question

Информатика

Нилка

8 декабря, 02:18

Составить программу вычисления арифметической прогрессии числовой последовательности. Где кол-во элементов и сами элементы вводятся с клавиатуры?

+3

Ответы (1)

Знаете ответ на вопрос?

Сюша · Answer 1

var

i, p, k, r, s:integer;

mas: array[1 ... 100] of integer;

begin

s:=0;

read (k) ;

for i:=1 to k do

read (mas[i]) ;

r:=mas[2]-mas[1];

for i:=1 to k do

s:=s+mas[i];

writeln ('raznost progressii=', r, ', summa elementov progressii=', s) ;

end.