РЕШИТЬ С ПОМОЩЬЮ ПАСКАЛЯ +ОБЪЯСНИТЬ ПОЧЕМУ ТАК!!ДАЮ МНОГО БАЛЛОВ ⦁ Вычислить сумму...

Question

РЕШИТЬ С ПОМОЩЬЮ ПАСКАЛЯ +ОБЪЯСНИТЬ ПОЧЕМУ ТАК!!ДАЮ МНОГО БАЛЛОВ ⦁ Вычислить сумму последовательности , где n вводится пользователем, и вывести ее на экран. ⦁ Вывести на экран количество вводимых пользователем чисел. Вычисления остановить, когда пользователь введет 0. ⦁ Вычислить сумму семи произвольных чисел.

Comments

не совсем понял 3 задание

---

дошло,как делать 3 задание,сделать?)

Answer 1

var

 ch: array[1..100] of real;

 i, n: integer;

 s: real;

begin

 repeat

   inc(i);//+1  

   write($'Введите {i} число: ');

   readln(ch[i]);//записываем в массив число  

 until ch[i] = 0;//проверяется условие,если число равно 0 то прекращаем ввод

 write($'Введите,сколько чисел сложить:');

 readln(n);

 writeln;

 writeln($'Вы ввели {i} чисел');

 for i := 1 to n do

 begin

   s := ch[i] + s;//складываем числа n штук

 end;

 writeln($'Сумма чисел = {s}');

end.