Question

Напишите программу, которая вычисляет сумму первых n натуральных чисел.
В Паскале через for i:= 1 to do

Answer 1

const l=20;

var a:array[1..l] of integer;

i,n,s:integer;

begin

writeln('Сгенерированный массив: ');

for i:=1 to l do begin

a[i]:=random (101);

write(a[i]:4);

end;

writeln;

s:=0;

writeln('Введите n');

read(n);

for i:=1 to n do

s:=s+a[i];

writeln;

write('Сумма: ',s);

end.