Найти минимальные и максимальные элементы массива

Практическая работа 9

Задание: Дан массив A размерностью 6 на 7 элементов. Найти минимальные и максимальные элементы массива A. Заменить нулями строку с максимальным элементом и столбец с минимальным элементом.

Ход работы:

Листинг программы:

var

Form1: TForm1;

A: array [0 .. 5, 0 .. 6] of integer;

i, j, x: integer;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin

for i := 0 to 5 do

begin

for j := 0 to 6 do

begin

A[i, j] := RandomRange(-9, 10);

StringGrid1.Cells[j, i] := IntToStr(A[i, j]);

end;

end;

x := 1;

end;

procedure TForm1.Button2Click(Sender: TObject);

var

row, col, z_min, z_max: integer;

begin

if x = 1 then

begin

for i := 0 to 5 do

begin

for j := 0 to 6 do

begin

A[i, j] := StrToInt(StringGrid1.Cells[j, i]);

end;

end;

z_min := 9;

z_max := -9;

for i := 0 to 5 do

begin

for j := 0 to 6 do

begin

if A[i, j] < z_min then

begin

z_min := A[i, j];

col := j;

end;

if A[i, j] > z_max then

begin

z_max := A[i, j];

row := i;

end;

end;

end;

for i := 0 to 6 do

begin

if i < 6 then

begin

A[row, i] := 0;

A[i, col] := 0;

StringGrid1.Cells[col, i] := IntToStr(A[i, col]);

end

else

begin

A[row, i] := 0;

end;

StringGrid1.Cells[i, row] := IntToStr(A[row, i]);

end;

end;

x := 0;

end;

procedure TForm1.Tform1OnActive(Sender: TObject);

begin

Label1.Caption :=

'Дан массив A размерностью 6 на 7 элементов. Найти минимальные и максимальные элементы массива A.' + #13 + 'Заменить нулями строку с максимальным элементом и столбец с минимальным элементом.';

end;

В данной программе основными процедурами являются: обработка события нажатия кнопки Button1 и обработка события нажатия кнопки Button2, то есть  при нажатии на кнопку Button1 массив A заполнится случайными числами в диапазоне от -9 до 9, а при нажатии на кнопку Button2 будет выполняться обработка этого массива, то есть будет выполняться условие задачи.

Блок-схемы основных процедур программы представлены на рисунках 9.1 и 9.2 соответственно.

Рисунок 9.1 - Начало блок-схемы программы. Обработка события нажатия на кнопку Button2.

Рисунок 9.1 - Продолжение блок-схемы программы. Обработка события нажатия на кнопку Button2.

Рисунок 9.2 - Блок-схема программы. Обработка события нажатия на кнопку Button1.

Выполнение программы представлено на рисунке 9.3

Рисунок 9.3 - Выполнение программы