Question

 найти сумму 10 произвольных чисел вводимых с клавиатуры,пожалуйста помогите(

Answer 1

var a:array[0..9] of integer;
var i,sum:integer;
begin
  for i:=0 to 9 do begin
    write('Vvedite chislo: ');
    readln(a[i]);
     sum:=sum+a[i];
  end;
  writeln(sum);
  readln;
end.