Составить программу для нахождения суммы последовательности чисел произвольного диапазона(паскаль)

Question

Составить программу для нахождения суммы последовательности чисел произвольного диапазона(паскаль)

Экономика

Гость

Ответ(ы) на вопрос:

Accepted Answer

program NT; var i, s, n:integer; begin writeln('vvedi n'); readln(n); s:=0; for i:=1 to n do begin x:=-10+random(200); s:=s+x; end; writeln('s=',s); end.