Вычислить сумму ряда 1,1/2, 1/2 и т.д. кол-во чисел вводится с клавиатуры. Перепишите…

Исходный вариант: var n, i: integer; sum: real; begin writeln ('Введите число: '); readln (n); i: =0; // Не нужно, так как дальше для i идет другое присвоение for i: =1 to n do begin read (sum); //Ошибочный запрос ввода, sum должна быть вычислена автоматически sum: =(sum+1) /i; // Неверная формула writeln ('сумма=',sum: 0:2); readln; end; end. Исправленный вариант: var n, i: integer; sum: real; begin writeln ('Введите число: '); readln (n); writeln ('Ряд: '); for i: =1 to n do begin write (1 / i, '); // Вывод ряда для наглядности, сразу под строкой «Ряд: " sum: =sum+1 / i; // Суммируем ряд end; writeln; writeln ('Сумма ряда: ', sum); // Вывод результатаend.