Question

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

Answer 1

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 Вроде так. Это в консоли, так что она может сразу закрыться после выполнения программы.