Question

«A»: Напишите программу, которая заполняет массив из 20 элементов случайными числами на отрезке [50; 250] и находит в нём минимальный и максимальный элементы и их номера. Язык: PASCAL -----Спамеров баню сразу!!!-----

Answer 1

Ответ:

program z1;

const n=20;

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

i,maxi,mini:integer;

begin

maxi:=1;

mini:=1;

write('Массив А: ');

randomize;

for i:=1 to n do

begin

a[i]:=random(201)+50;

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

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

write(a[i]:5)

end;

writeln;

writeln('Максимальный элемент: a[',maxi,'] = ',a[maxi]);

writeln('Минимальный элемент: a[',mini,'] = ',a[mini])

end.

Объяснение:

maxi - индекс максимального элемента

mini - индекс минимального элемента

Цикл с параметром:

1) задаём значение элемента с текущим индексом

2) сравниваем значение элемента с текущим индексом со значением элемента с  индексом максимального элемента, если значение элемента с текущим индексом больше значения элемента с  индексом максимального элемента, то присваиваем индексу максимального элемента значение текущего индекса

3) сравниваем значение элемента с текущим индексом со значением элемента с  индексом минимального элемента, если значение элемента с текущим индексом меньше значения элемента с  индексом минимального элемента, то присваиваем индексу минимального элемента значение текущего индекса

4) выводим на экран значение элемента с текущим индексом

Выводим на экран значения максимального и минимального элементов и их индексы

Answer 2

Ответ:

begin

var a := ArrRandom(20, 50, 150);

var (imax, imin) := (0, 0);

for var i := 1 to a.High do

begin

  a[i].Print;

  if a[i] > a[imax] then

    imax := i

  else if a[i] < a[imin] then

    imin := i

end;

Writeln;

$'Минимальный элемент номер  {imin+1} равен {a[imin]}'.Println;  

$'Максимальный элемент номер {imax+1} равен {a[imax]}'.Println;  

end.

Answer 3

Конечно, вот программа на языке Pascal, которая создает массив из 20 элементов со случайными числами в диапазоне [50; 250] и находит минимальный и максимальный элементы, а также их номера:

program FindMinMaxElements;
var
  arr: array[1..20] of integer;
  i, minElement, maxElement, minIndex, maxIndex: integer;
begin
  // Инициализируем генератор случайных чисел
  Randomize;
  
  // Заполняем массив случайными числами в диапазоне [50; 250]
  for i := 1 to 20 do
    arr[i] := Random(201) + 50;
  
  // Инициализируем минимальный и максимальный элементы первыми значениями из массива
  minElement := arr[1];
  maxElement := arr[1];
  minIndex := 1;
  maxIndex := 1;
  
  // Проходим по массиву, ищем минимальный и максимальный элементы
  for i := 2 to 20 do
  begin
    if arr[i] < minElement then
    begin
      minElement := arr[i];
      minIndex := i;
    end
    else if arr[i] > maxElement then
    begin
      maxElement := arr[i];
      maxIndex := i;
    end;
  end;
  
  // Выводим результат
  writeln('Массив случайных чисел:');
  for i := 1 to 20 do
    write(arr[i], ' ');
  writeln;
  writeln('Минимальный элемент: ', minElement);
  writeln('Индекс минимального элемента: ', minIndex);
  writeln('Максимальный элемент: ', maxElement);
  writeln('Индекс максимального элемента: ', maxIndex);
end.

Эта программа создает массив из 20 случайных чисел в заданном диапазоне, затем находит минимальный и максимальный элементы, а также их индексы в массиве, и выводит результат на экран.