Question

Составить программу для нахождения суммы десяти произвольных чисел на языке паскаль?

Answer 1

uses crt;
var a,s:real; i:integer;
begin
  clrscr;
  randomize;
  s:=0;
  for i:=1 to 10 do
  begin
    a:=random(100)-50;
    s:=s+a;
    write(a,' ');
  end;
  writeln;
  write('summa=',s);
end.

Answer 2

Программа на языке Паскаль для нахождения суммы десяти произвольных чисел

Вот пример программы на языке Паскаль, которая находит сумму десяти произвольных чисел:

program SumOfTenNumbers;
var
  i, number, sum: integer;
begin
  sum := 0;
  for i := 1 to 10 do
  begin
    writeln('Введите число ', i, ': ');
    readln(number);
    sum := sum + number;
  end;
  writeln('Сумма десяти чисел: ', sum);
end.

В этой программе используется цикл `for`, который выполняется 10 раз. На каждой итерации пользователю предлагается ввести число, которое затем добавляется к переменной `sum`. В конце программы выводится сумма всех введенных чисел.

Примечание: Приведенный выше код является примером и может быть изменен или дополнен в зависимости от конкретных требований задачи.