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

Question

Информатика

Куприян

9 сентября, 22:35

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

+3

Ответы (1)

Знаешь ответ?

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