Question

Помогите, пожалуйста!! Только пишите по делу, пожалуйста!! Написать код программы в среде Паскаль, которая ищет максимальный и минимальный элемент в массиве и меняет их местами. Исходный массив из 10ти целых чисел заполняется случайным образом из диапазона [10,40].Оба массива: исходный и после замены max и min выводятся в строку через пробел.

Answer 1

program v1;

Var a:array [1..10] of integer;

    i,j,j1,min,n,max,q:integer;

begin

 randomize;

for i:=1 to 10 do a[i]:=random(31)+10;

Writeln (' Znachenija matracy ');

for i:=1 to 10 do write (a[i]:3); writeln;

Max:=a[1];

for i:=1 to 10 do

 if a[i]>=max then begin

                   max:=a[i];

                   j:=i;

                   end;

min:=a[1];

for i:=1 to 10 do

 if a[i]<=min then begin

                   min:=a[i];

                   j1:=i;

                   end;

                 q:=a[j1];

                a[j1]:=a[j];

                a[j]:=q;

For i:=1 to 10 do write (a[i]:3); writeln;

Writeln (' Maxim element = ',max);

writeln (' Minim element = ',min);

end.

Answer 2

Конечно, вот пример кода на языке Pascal, который выполняет задачу по поиску максимального и минимального элементов в массиве и меняет их местами. Затем он выводит исходный и измененный массивы через пробел:

pascalCopy code
program MaxMinSwap;
var
  arr: array[1..10] of integer;
  i, maxIndex, minIndex, temp: integer;
begin
  // Инициализация генератора случайных чисел
  Randomize;

  // Заполняем массив случайными числами от 10 до 40
  for i := 1 to 10 do
    arr[i] := Random(31) + 10;

  // Исходный массив
  Write('Исходный массив: ');
  for i := 1 to 10 do
    Write(arr[i], ' ');

  // Находим индексы максимального и минимального элементов
  maxIndex := 1;
  minIndex := 1;
  for i := 2 to 10 do
  begin
    if arr[i] > arr[maxIndex] then
      maxIndex := i;
    if arr[i] < arr[minIndex] then
      minIndex := i;
  end;

  // Меняем местами максимальный и минимальный элементы
  temp := arr[maxIndex];
  arr[maxIndex] := arr[minIndex];
  arr[minIndex] := temp;

  // Выводим измененный массив
  WriteLn;
  Write('Массив после замены max и min: ');
  for i := 1 to 10 do
    Write(arr[i], ' ');

  ReadLn;
end.

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