Pascal

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

Question

Информатика

Милуша

27 декабря, 18:38

Pascal

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

+5

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