Question

Pascal ABC . Срочно !!!!!! Заполнить массив из 20-ти элементов целыми случайными числами в диапазоне [ -50;50], вывести максимальный элемент и минимальный элемент и их индексы.

Answer 1

Program z;
var a:array[1..20] of integer;
i,mini,maxi,max,min:integer;
begin
randomize;
for i:=1 to 20 do
begin
a[i]:=random(-50,50);
write(a[i],' '); {вывод массива}
end;
writeln; {переход на новую строку после вывода массива}
max:=a[1];
maxi:=1;
min:=a[1];
mini:=1;
for i:=2 to 20 do
begin
if a[i]>max then begin max:=a[i]; maxi:=i; end;
if a[i]<min then begin min:=a[i]; mini:=i; end;
end;
writeln('max=',max,' max index=',maxi);
writeln('min=',min,' min index=',mini);
end.

Answer 2

Var max,min,i:integer; a:array [1..20] of integer; b:boolean;
begin
for i:=1 to 20 do 
begin
b:=random(1);
if b then do a[i]:=-1*random(50) else a[i]:=random(50);
end;
max:=a[1];
min:=a[1];
for i:=2 to 20 do begin
if max<a[i] then max:=a[i];
if min>a[i] then min:=a[i];end;
for i:=1 to 20 do begin
if max=a[i] then writeln('Индекс максимального'i);
if min=a[i] then writeln('Индекс минимального'i);
end;
writeln('Максимальное'max);
writeln('Минимальное'min);
End.

Answer 3

Для решения данной задачи в Pascal ABC можно использовать следующий код:

pascalCopy code
program MaxMinArray;

const
  N = 20; // Количество элементов в массиве
  MinValue = -50;
  MaxValue = 50;

var
  arr: array[1..N] of integer;
  i, maxIndex, minIndex, maxValue, minValue: integer;

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

  // Заполнение массива случайными числами в диапазоне [MinValue; MaxValue]
  for i := 1 to N do
    arr[i] := Random(MaxValue - MinValue + 1) + MinValue;

  // Находим максимальный и минимальный элементы в массиве
  maxValue := arr[1];
  minValue := arr[1];
  maxIndex := 1;
  minIndex := 1;

  for i := 2 to N do
  begin
    if arr[i] > maxValue then
    begin
      maxValue := arr[i];
      maxIndex := i;
    end;
    
    if arr[i] < minValue then
    begin
      minValue := arr[i];
      minIndex := i;
    end;
  end;

  // Вывод результатов
  writeln('Массив:');
  for i := 1 to N do
    write(arr[i], ' ');

  writeln;
  writeln('Максимальный элемент:', maxValue, ' с индексом:', maxIndex);
  writeln('Минимальный элемент:', minValue, ' с индексом:', minIndex);
end.

Программа создает массив arr из 20 элементов и заполняет его случайными целыми числами в диапазоне от -50 до 50. Затем она находит максимальный и минимальный элементы в массиве и выводит их значения и индексы.