Question

нужно сделать БЛОК СХЕМУ.
1.Разработать схему алгоритма, который запрашивает N произвольных целых чисел и ищет их сумму. Число N вводится с клавиатуры. Разработать для созданного алгоритма не менее трёх тестов и проверить на них правильность работы алгоритма.
2.Разработать схему алгоритма для вычисления суммы ряда:
s=1+1/2+1/3+1/4+...+1/n
Число N вводится с клавиатуры.
Протестировать алгоритм для N=1, N=2, N=4, N=6. Правильность ответов проверить с помощью калькулятора. Сохранить файл с именем Сумма ряда.
ПОМОГИТЕ ПОЖАЛУЙСТА Я УЖЕ ВСЕ ЧТО МОГ ДЕЛАЛ НО НЕ ПОЛУЧАЕТСЯ!

Answer 1

Ответ:

var n,i,s,c:integer;

begin readln(n);

for i:=1 to n do //сколько произвольных readln(c); //вводим произвольные числа

чисел будет.

begin

s:=s+c; //суммируем end;

writeln(s); //Вывод суммы end.