Question

Программа Pascal найти наименьшее и наибольшее число из 20 случайных чисел. СРОЧНО

Answer 1

Ответ:

Объяснение:

var a:array[1..20]of integer;

   i,min,max:integer;

begin

for i:=1 to 20 do

read(a[i]);

min:=a[1]; max:=a[1];

for i:=20 downto 2 do

begin

    if a[i]>max then max:=a[i];

    if a[i]<min then min:=a[i];

end;

write('Максимальное число - ',max);

write('Минимальное число - ',min);

end.

Answer 2

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

pascalCopy code
program FindMinMax;
uses crt;

var
  numbers: array[1..20] of integer;
  i, minNum, maxNum: integer;

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

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

  // Поиск минимального и максимального числа
  minNum := numbers[1];
  maxNum := numbers[1];

  for i := 2 to 20 do
  begin
    if numbers[i] < minNum then
      minNum := numbers[i];

    if numbers[i] > maxNum then
      maxNum := numbers[i];
  end;

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

  writeln;
  writeln('Наименьшее число: ', minNum);
  writeln('Наибольшее число: ', maxNum);

  readln;
end.

Обратите внимание, что в программе используется процедура randomize для инициализации генератора случайных чисел и функция random(100) + 1 для генерации случайных чисел от 1 до 100. Если вам нужно изменить диапазон случайных чисел, вы можете изменить параметры функции random().