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

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

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

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.