Question

Паскаль. 1. Заполнить массив из 10 элементов случайными числами в интервале [-10..10] и найти сумму элементов больших числа к введенного с клавиатуры

Answer 1

Var a: array [0..9] of integer;
    i, b, c: integer;
begin
     readln(b);
     for i := 0 to 9 do
     begin
          a[i] := random(20) - 10;
          if (a[i] > b) then c := c + a[i];
     end;
     writeln(c);
end.

Answer 2

Вот пример программы на языке Pascal, которая заполняет массив из 10 элементов случайными числами в интервале [-10..10], а затем находит сумму элементов массива, которые больше заданного числа k, введенного с клавиатуры:

pascalCopy code
program SumOfElements;

const
  N = 10; // Размер массива

var
  arr: array[1..N] of Integer;
  k, sum, i: Integer;

begin
  // Заполняем массив случайными числами в интервале [-10..10]
  Randomize;
  for i := 1 to N do
    arr[i] := Random(21) - 10;

  // Вводим число k с клавиатуры
  Write('Введите число k: ');
  Readln(k);

  // Инициализируем сумму нулем
  sum := 0;

  // Находим сумму элементов больше k
  for i := 1 to N do
  begin
    if arr[i] > k then
      sum := sum + arr[i];
  end;

  // Выводим результат
  Writeln('Сумма элементов больше ', k, ' равна ', sum);
end.

Эта программа создает массив arr из 10 элементов, заполняет его случайными числами из интервала [-10..10], затем запрашивает число k с клавиатуры и вычисляет сумму элементов массива, которые больше k. Результат выводится на экран.