h1

Замена местами минимального и максимального элемента в каждой строке матрицы

Январь 8, 2010

Задание на программирование операций обработки двумерных массивов. Дана матрица размера 5×10. Преобразовать матрицу, поменяв местами минимальный и максимальный элемент в каждой строке.Исходный код:

uses crt;
type mat=array[1..5,1..10] of integer;
tmat=array[1..5] of integer;
var a:mat;
b,c:tmat;
i,j,ii:byte;
max,min,k:integer;
begin
clrscr;
randomize;
writeln(‘massiv A: ‘);
for i:=1 to 5 do begin
for j:=1 to 10 do begin
a[i,j]:=random(100);
write(a[i,j]:3,’ ‘);
end;
writeln;
end;
max:=a[1,1]; min:=a[1,1]; ii:=1;
for i:=1 to 5 do
begin max:=a[i,1]; min:=a[i,1];
for j:=1 to 10 do
begin
if a[i,j]>max then
max:=a[i,j];
if a[i,j]<min then
min:=a[i,j];
end;
b[ii]:=min; c[ii]:=max;
ii:=ii+1;
end;
writeln;
ii:=1;
for i:=1 to 5 do begin
for j:=1 to 10 do begin
if a[i,j]=b[ii] then a[i,j]:=c[ii] else
if a[i,j]=c[ii] then a[i,j]:=b[ii];
end;
ii:=ii+1;
end;
writeln(‘maximalnii i minimalnii elementi zameneni: ‘);
for i:=1 to 5 do begin
for j:=1 to 10 do begin
write(a[i,j]:3,’ ‘);
end;
writeln;
end;
readkey;
end.

Реклама

Добавить комментарий

Заполните поля или щелкните по значку, чтобы оставить свой комментарий:

Логотип WordPress.com

Для комментария используется ваша учётная запись WordPress.com. Выход / Изменить )

Фотография Twitter

Для комментария используется ваша учётная запись Twitter. Выход / Изменить )

Фотография Facebook

Для комментария используется ваша учётная запись Facebook. Выход / Изменить )

Google+ photo

Для комментария используется ваша учётная запись Google+. Выход / Изменить )

Connecting to %s

%d такие блоггеры, как: