Pascal

Вычислить сумму элементов массива заданной длины (array)

Question

Информатика

Евдося

27 июля, 04:39

Pascal

Вычислить сумму элементов массива заданной длины (array)

+2

Ответы (1)

Знаете ответ на вопрос?

Илия · Answer 1

Uses Crt;

const

m=1000;

var

a:array[1 ... m]of integer;

i, s, n:integer;

begin

clrscr;

writeln (' Введите длину массива') ;

readln (n) ;

Writeln ('Введите массив через пробел') ;

for i:=1 to n do

begin

read (a[i]) ;

s:=s+a[i];

end;

writeln (s) ;

readkey;

end.

PascalВычислить сумму элементов массива заданной длины (array)

Pascal

Вычислить сумму элементов массива заданной длины (array)