Задание:
ПОМОГИТЕЕ! Программа для нахождения суммы n — введенных вещественных чисел.
Решение:
uses crt; var n,i: integer; sum: real; a: array[1… 100] of real; beginwriteln ('Сколько чисел? '); read (n); writeln ('Введите числа'); for i: =1 to n dobeginread (a[i]); sum: =sum+a[i]; end; writeln (sum); end.
Знаете другой ответ?