Заполнить и распечатать на экране результатов массив целых чисел размером 15 элементов и найти сумму элементов массива

Question

Информатика

Еленка

13 мая, 05:17

Заполнить и распечатать на экране результатов массив целых чисел размером 15 элементов и найти сумму элементов массива

+2

Ответы (1)

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

Нася · Answer 1

На паскале?

var v:array [1 ... 100] of integer; s, n, I: integer;

begin

for I:=1 to 15 do

begin

readln (n) ;

v [I]:=n;

s:=s+n;

end;

for I:=1 to 15 do

writeln (v [I]) ;

end.