Question

Дано 20 чисел найти сумму чисел которые больше числам 15 (Паскаль) ПРОШУ ПОБЫСТРЕЕ

Answer 1

может быть 25 или 30 точно нез

Answer 2

Вот пример кода на Pascal, который находит сумму чисел, больших 15, из заданного массива из 20 чисел:

pascalCopy code
program SumAbove15;

var
  numbers: array[1..20] of integer; // массив из 20 чисел
  i, sum: integer;

begin
  // Инициализация массива
  for i := 1 to 20 do
  begin
    write('Введите число ', i, ': ');
    readln(numbers[i]);
  end;

  // Вычисление суммы чисел, больших 15
  sum := 0;
  for i := 1 to 20 do
  begin
    if numbers[i] > 15 then
      sum := sum + numbers[i];
  end;

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

  readln;
end.

Просто введите значения для каждого из 20 чисел, и программа выведет сумму чисел, которые больше 15.