Question

СРОЧНОО ПОМАГИТЕ ДАМ 50 БАЛОВ. Заполнить одномерной массив из 15 чисел любыми числами, вывести на экран, поменять местами максимум и минимум и вывести на экран, поворачиваем массив наоборот, отсортировать по убыванию. СДЕЛАТЬ НА ЯЗЫКЕ ПРОГРАМИРОВАНИЯ ПАСКАЛЬ ABC.

Answer 1

Ответ:

єто сложно хм )))))))))

Answer 2

Конечно, я помогу вам с этим. Вот код на языке программирования Pascal ABC:

pascalCopy code
program ArrayManipulation;

const
  N = 15;

var
  arr: array[1..N] of integer;
  i, temp, maxIdx, minIdx: integer;

procedure Swap(var a, b: integer);
var
  temp: integer;
begin
  temp := a;
  a := b;
  b := temp;
end;

begin
  { Заполняем массив случайными числами }
  Randomize;
  for i := 1 to N do
    arr[i] := Random(100);  // Генерируем числа от 0 до 99

  { Выводим исходный массив на экран }
  writeln('Исходный массив:');
  for i := 1 to N do
    write(arr[i], ' ');
  writeln;

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

  { Меняем местами максимум и минимум }
  Swap(arr[maxIdx], arr[minIdx]);

  { Выводим массив после замены на экран }
  writeln('Массив после замены максимума и минимума:');
  for i := 1 to N do
    write(arr[i], ' ');
  writeln;

  { Поворачиваем массив наоборот }
  for i := 1 to N div 2 do
    Swap(arr[i], arr[N - i + 1]);

  { Выводим массив после переворота на экран }
  writeln('Массив после переворота:');
  for i := 1 to N do
    write(arr[i], ' ');
  writeln;

  { Сортируем массив по убыванию }
  for i := 1 to N - 1 do
    for j := i + 1 to N do
      if arr[i] < arr[j] then
        Swap(arr[i], arr[j]);

  { Выводим отсортированный массив на экран }
  writeln('Отсортированный массив по убыванию:');
  for i := 1 to N do
    write(arr[i], ' ');
  writeln;
end.

Пожалуйста, убедитесь, что ваша среда разработки поддерживает язык Pascal ABC и может выполнить этот код.