Напишите программу, выполняющую сумму 10 вводимых с клавиатуры целых чисел.

С массивом:

Sum:=0;

for i:=1 to 10 do

Begin

Write('Введите ',i,'-е число: ); Readln(X[i]);

Sum:=Sum+X[i];

end;

Без массивов:

Sum:=0;

for i:=1 to 10 do

Begin

Write('Введите ',i,'-е число: ); Readln(X);

Sum:=Sum+X;

end;

Объяснение: