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

Question

Информатика

Никеня

2 сентября, 16:42

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

+5

Ответы (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.