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

Question

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

Answer 1

uses crt;
var a,s:real; i:integer;
begin
  clrscr;
  randomize;
  s:=0;
  for i:=1 to 10 do
  begin
    a:=random(100)-50;
    s:=s+a;
    write(a,' ');
  end;
  writeln;
  write('summa=',s);
end.