Предмет: Информатика, автор: mariya456

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

Ответы

Автор ответа: Darkevil1255
0

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.

Похожие вопросы
Предмет: Математика, автор: Danila1107