Question

Напишите пожалуйста программу в паскале: Вводится 15 чисел. Найти сумму чисел, введенных с пятого по десятое

Answer 1

Ответ:

var

s: real;

n: integer;

begin

writeln('Введите последнее число множества');

readln(n);

s:=(n*(n+1))/2;

writeln('Сумма чисел равна ',s);

end.

Answer 2

Ответ:

PascalABC.NET

begin

 ReadArrInteger(15)[4:9].Sum.Println;

end.

Объяснение:

Answer 3

Конечно! Вот программа на Pascal (Free Pascal), которая позволяет ввести 15 чисел и вычисляет сумму чисел, введенных с пятого по десятое:

pascalCopy code
program SumOfNumbers;

var
  numbers: array[1..15] of Integer;
  i, sum: Integer;

begin
  // Вводим 15 чисел
  writeln('Введите 15 чисел:');
  for i := 1 to 15 do
  begin
    write('Число ', i, ': ');
    readln(numbers[i]);
  end;

  // Вычисляем сумму чисел с пятого по десятое
  sum := 0;
  for i := 5 to 10 do
  begin
    sum := sum + numbers[i];
  end;

  // Выводим результат
  writeln('Сумма чисел с пятого по десятое: ', sum);

end.

Программа попросит вас ввести 15 чисел, после чего выдаст сумму чисел с пятого по десятое.