Question

Задать массив из 30 элементов, заполнить случайными числами в диапазоне от 0 до 75 и вывести его на экран, найти все числа из диапазона [10;35], их количество и общую сумму и вывести их на экран.Паскаль ​

Answer 1

var

       a: array [1..30] of Word;

       i, c, sum: Word;

       

begin

       Randomize;

       

       for i := 1 to 30 do

               a[i] := Random (76);

       

       for i := 1 to 30 do

               Write (a[i], ' ');

       

       WriteLn;

       

       for i := 1 to 30 do

               if (a[i] >= 10) and (a[i] <= 35) then begin

                       Inc (c);

                       sum := sum + a[i];

                       Write (a[i], ' ')

               end;

       

       WriteLn;

       WriteLn ('Кол-во чисел из диапазона [10; 35]: ', c);

       Write ('Сумма чисел из диапазона [10; 35]: ', sum);

end.        

Answer 2

Вот пример программы на Pascal, которая создает массив из 30 элементов, заполняет его случайными числами от 0 до 75, находит и выводит на экран числа из диапазона [10;35], их количество и общую сумму:

pascalCopy code
program RandomArray;

var
  arr: array[1..30] of integer;
  i, count, total: integer;

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

  // Заполнение массива случайными числами
  for i := 1 to 30 do
    arr[i] := random(76); // Генерируем случайное число от 0 до 75

  writeln('Сгенерированный массив:');

  // Вывод массива на экран
  for i := 1 to 30 do
    write(arr[i], ' ');

  writeln; // Переход на новую строку

  count := 0; // Инициализируем счетчик чисел из диапазона
  total := 0; // Инициализируем сумму чисел из диапазона

  // Поиск чисел из диапазона [10;35] и их подсчет
  for i := 1 to 30 do
  begin
    if (arr[i] >= 10) and (arr[i] <= 35) then
    begin
      count := count + 1;   // Увеличиваем счетчик
      total := total + arr[i]; // Добавляем число к сумме
    end;
  end;

  writeln('Числа из диапазона [10;35]:');
  writeln('Количество: ', count);
  writeln('Сумма: ', total);

  readln;
end.

Этот код создает массив, заполняет его случайными числами, и затем находит и выводит на экран числа из диапазона [10;35], их количество и сумму.