Паскаль. Составить программу для определения суммы чисел от 1 до N

Question

Информатика

Максимианыч

8 декабря, 04:17

Паскаль. Составить программу для определения суммы чисел от 1 до N

+3

Ответы (1)

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

Доняха · Answer 1

В Pascal:

const n=100;

var a: array[1 ... n] of integer; s, i:integer;

begin

s:=0;

for i:=1 to n do begin

writeln ('Введите', i, '-й элемент массива') ;

readln (a[i]) ;

end;

for i:=1 to n do begin

s:=a[i]+s;

end;

write ('Сумма элементов массива = ', s) ;

end.