Написать на Паскале программу, которая запрашивает с клавиатуры N произвольных чисел и ищет их сумму.число N вводится с клавиатуры.

Вопрос для Илюхи:

Написать на Паскале программу, которая запрашивает с клавиатуры N произвольных чисел и ищет их сумму.число N вводится с клавиатуры.

Илюха-Отвечает:

Program sum
Var n,i,s: integer;
a:array[1..1000] of integer;
begin
Write (‘Vvedite n’);
readln(n);
Write(‘Vvedite n chisel’);
For i:=1 to n do
read(a[i]);
S:=0;
For i:=1 to n do
S:= S+a[i];
write(‘Summa ravna’, s)
end
Вроде так. Это в консоли, так что она может сразу закрыться после выполнения программы.

Добавить свой ответ