Question

Создайте программу на паскале. Программа вводит случайный массив из 10 чисел и считает сколько элементов 1)меньше 50, 2)сумму элементов, которые больше 20​

Answer 1

Ответ:

Объяснение:

вот оба варианта)

Answer 2

Для создания программы на языке Паскаль, которая вводит случайный массив из 10 чисел и считает количество элементов, которые меньше 50, а также сумму элементов, которые больше 20, можно использовать следующий код:

pascalCopy code
program ArrayOperations;

const
  ARRAY_SIZE = 10;

var
  numbers: array[1..ARRAY_SIZE] of integer;
  i, countLessThan50, sumGreaterThan20: integer;

begin
  randomize; // Инициализация генератора случайных чисел

  // Заполняем массив случайными числами от 1 до 100
  for i := 1 to ARRAY_SIZE do
    numbers[i] := random(100) + 1;

  // Выводим элементы массива
  writeln('Случайный массив из 10 чисел:');
  for i := 1 to ARRAY_SIZE do
    write(numbers[i], ' ');
  writeln;

  // Считаем количество элементов, меньше 50, и сумму элементов, больше 20
  countLessThan50 := 0;
  sumGreaterThan20 := 0;

  for i := 1 to ARRAY_SIZE do
  begin
    if numbers[i] < 50 then
      Inc(countLessThan50);

    if numbers[i] > 20 then
      Inc(sumGreaterThan20, numbers[i]);
  end;

  writeln('Количество элементов меньше 50: ', countLessThan50);
  writeln('Сумма элементов больше 20: ', sumGreaterThan20);

  readln;
end.

Программа генерирует массив из 10 случайных чисел, выводит его на экран, затем подсчитывает количество элементов, которые меньше 50, и сумму элементов, которые больше 20. Результаты выводятся на экран.