2 вариант,нужно срочно решить в ворде,маткад и Паскаль. Осуществить вывод значения функции, сопровождая вывод наименованиями переменных. Протестировать все
Var N: integer; sum: real; begin write('Введите количество чисел: '); readln(N); write('Введите числа: '); sum := 0; for var i := 1 to N do begin var x := ReadReal; sum += x; end; writeln('Сумма введенных чисел = ',sum); end.
