Опубликовано 09.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.