Отсортировать столбец, содержащий максимальный элемент, по возрастанию абсолютных значений - Turbo Pascal

Узнай цену своей работы

Формулировка задачи:

Здравствуйте! Прошу помочь с задачкой. Сортировку сделать сделала, но не то... 2. Отсортировать столбец, содержащий максимальный элемент, по возрастанию абсолютных значений, а столбец, содержащий минимальный элемент, - по убыванию четных элементов

Решение задачи: «Отсортировать столбец, содержащий максимальный элемент, по возрастанию абсолютных значений»

textual
Листинг программы
program change;
uses crt;
const n=5;
var
A : Array [1..n,1..n] of integer;
i,j, mini, minj, maxi, maxj, min,max, temp,m,k: integer;
begin
clrscr;
randomize;
Writeln('Ishodnyi massiv');
for i := 1 to n do
 begin
  for j := 1 to n do
   begin
    A[i,j] := -16+random(45);
    write(A[i,j]:5);
   end;
  writeln;
 end;
min := A[1,1];
max := A[1,1];
for i := 1 to n do
for j := 1 to n do
if A[i,j] < min then
 begin
  min := A[i,j];
  minj := j;  {столбец, строка не нужна}
  minj := j;
 end
else if A[i,j] > max then
 begin
  max := A[i,j];
  maxj := j;
 end;
writeln('Maksimalnyi element ',max,' v stolbce ',maxj);
writeln('Minimalnyi element raven ',min,' v stolbce ',minj);
for i:=1 to n-1 do
for j:=i+1 to n do
if abs(A[i,maxj])>abs(A[j,maxj])then
 begin
  temp:=A[i,maxj];
  A[i,maxj] := A[j,maxj];
  A[j,maxj] := temp;
 end;
writeln('Sortirovka stolbca s max');
for i := 1 to n do
 begin
  for j := 1 to n do
  write(A[i,j]:5);
  writeln;
 end;
for i:=1 to n-1 do
for j:=i+1 to n do
if (A[i,minj] mod 2=0)and(A[j,minj]mod 2=0)and(A[i,minj]<A[j,minj]) then
 begin
  temp:=A[i,minj];
  A[i,minj]:=A[j,minj];
  A[j,minj]:=temp;
 end;
writeln('Sortirovka stolbca s min');
for i := 1 to n do
 begin
  for j := 1 to n do
  write(A[i,j]:5);
  writeln;
 end;
readln;
end.

Объяснение кода листинга программы

  1. Создается программа change на языке Turbo Pascal.
  2. Используются стандартные библиотеки.
  3. Создается массив A размером n x n, где n равно 5.
  4. Заполняется случайными числами от -16 до 44 столбец массива A.
  5. Находится минимальный элемент в массиве A и сохраняется в переменную min.
  6. Находится максимальный элемент в массиве A и сохраняется в переменную max.
  7. Находится индекс столбца и строки, где находится минимальный элемент, и сохраняется в переменные minj и i соответственно.
  8. Находится индекс столбца и строки, где находится максимальный элемент, и сохраняется в переменные maxj и j соответственно.
  9. Выводится на экран найденный минимальный элемент и его индексы.
  10. Выводится на экран найденный максимальный элемент и его индексы.
  11. Выполняется сортировка столбца, содержащего максимальный элемент, по возрастанию абсолютных значений.
  12. Выводится на экран отсортированный столбец.
  13. Выполняется сортировка столбца, содержащего минимальный элемент, по возрастанию абсолютных значений.
  14. Выводится на экран отсортированный столбец.
  15. Выполняется чтение из файла до конца.
  16. Выполняется вывод на экран информации о программе.
  17. Программа завершается.

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

9   голосов , оценка 4.333 из 5
Похожие ответы