Question

даю 100 балів
в лазарусі створить проект для знаходження суми 10 чисел

Answer 1

program sum_of_10_numbers;

var

 i, sum: integer;

 num: array[1..10] of integer;

begin

 sum := 0;

 for i := 1 to 10 do

 begin

   writeln('Enter number ', i, ': ');

   readln(num[i]);

   sum := sum + num[i];

 end;

 writeln('The sum of the 10 numbers is: ', sum);

 readln;

end.