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

145

381

Посмотреть ответы 2

Ответы на вопрос:

SlavaArt

Информатика

4,4(8 оценок)

vari,p,k,r,s: integer; mas: array[1..100] of integer; begins: =0; read(k); for i: =1 to k doread(mas[i]);

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

for i: =1 to k dos: =s+mas[i];

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

nastorekhova20

Информатика

4,6(17 оценок)

если всё так как написанно, то программа вообще не скомпилируется. должно быть

a: =1; b: =1;

while a< 2 do

begin

b: =b+2; end;

s: =a+b; в теле цикла переменная а не изменяется, поэтому цикл будет бесконечным. то есть пока ctrl-break не нажмешь будет кажаться что программа зависла.