Найти сумму n однозначных чисел введенных с клавиатуры паскаль

Question

Информатика

Лизаветка

27 апреля, 16:42

Найти сумму n однозначных чисел введенных с клавиатуры паскаль

+3

Ответы (1)

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

Каллист · Answer 1

Program bog (input, output) ; type vector=array[1 ... 100] of integer; var n, s, i:integer; z:vector; begin read (n) ; for I:=1 to n do read (z[i]) ; s:=0; for I:=1 to n do s:=s+z[i]; writeln (s) ; end.