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

@Tavera · Регистрация: 07.12.2011

Студворк — интернет-сервис помощи студентам

помогите пожалуйста, напишите код программы

Дан массив А(m,n), найти максимальный и минимальный элементы. Массив А преобразовать в массив С, той же размерности, в котором минимальный из А меняется местами с первым элементом массива, а максимум и А меняются местами с последним элементом.

@slovin · 14.12.2011, 03:56

Pascal

program nazvanie;
uses crt;
var a:array[1..100,1..100]of real;
c:array[1..100,1..100]of real;
i,j,n:integer;
x,y,x1,y1:real;
begin
clrscr;
write('введите каличество элементов массива');readln(n,m);
{выводим массив}
for i:=1 to n do
begin
for j:=1 to m do
write('a[',i,j,']=');readln(a[i,j]);
end;
end;
{находим минимум и максимум}
x:=a[1,1];
y:=a[1,1];
x1:=x;
y1:=y;
for i:=1 to n do
begin
for j:=1 to m do
if x>a[i]
then x:=a[i];
if y<a[i]
then y:=a[i];
end;
if x1>x 
then x1:=x;
if y1<y
then y1:=y; 
end;
{выводим 2-й массив и приравниваем его к первому, заменяя первое и последнее значения массива}
for i:=1 to n do
begin
for j:=1 to m do 
begin
c[i,j]:=a[i,j];
end;
end;
c[1,1]:=x1;
c[n,m]:=y1;
{если требуется можно вывести массив с[i,j] но думаю это не составит проблем}
end.

Добавлено через 11 минут
добавь репутацию+1 вместо спасибо, если помогло, мне будет приятно

@Tavera 0 / 0 / 0 Регистрация: 07.12.2011 Сообщений: 14
		1
	Найти максимальный и минимальный элементы матрицы 14.12.2011, 02:00. Показов 1148. Ответов 1 Метки нет (Все метки) помогите пожалуйста, напишите код программы Дан массив А(m,n), найти максимальный и минимальный элементы. Массив А преобразовать в массив С, той же размерности, в котором минимальный из А меняется местами с первым элементом массива, а максимум и А меняются местами с последним элементом. 0

	14.12.2011, 03:56

Опции темы

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

Решение