Замена элементов в массиве - Pascal
Формулировка задачи:
Найти в каждой строке матрицы максимум и минимум и поместить их на место первого и последнего элемента строки соответсвенно. Матрицу напечатать в общепринятом виде F(M,N), где N<=20, M<=10. Заранее спасибо.
Решение задачи: «Замена элементов в массиве»
textual
Листинг программы
uses crt; const n=3; m=4; var matrix:array[1..n,1..m] of integer; i,j:integer; min,max:integer; begin clrscr; for i:=1 to n do begin for j:=1 to m do begin matrix[i,j]:=random(99); write(matrix[i,j], ' '); end; writeln; end; for i:=1 to n do begin min:=matrix[i,1]; max:=matrix[i,1]; for j:=1 to m do begin if matrix[i,j]<min then begin min:=matrix[i,j]; matrix[i,j]:=matrix[i,1]; matrix[i,1]:=min; end; end; for j:=1 to m do begin if matrix[i,j]>max then begin max:=matrix[i,j]; matrix[i,j]:=matrix[i,m]; matrix[i,m]:=max; end; end; end; writeln; writeln; for i:=1 to n do begin for j:=1 to m do write(matrix[i,j],' '); writeln; end; readln; end.
Объяснение кода листинга программы
- Создается переменная
matrix
, которая представляет собой массив целых чисел размеромn
наm
. - Заполняются элементы массива случайными числами от 0 до 99.
- Находится минимальный и максимальный элемент в текущем подмассиве.
- Если текущий элемент меньше минимального, то обновляется значение минимального элемента и значения текущего элемента и первого элемента подмассива.
- Если текущий элемент больше максимального, то обновляется значение максимального элемента и значения текущего элемента и последнего элемента подмассива.
- Выводится содержимое массива.
- Программа завершается после ввода данных пользователем.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д