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

Question

Информатика

Грипа

16 декабря, 11:26

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

+2

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