Нахождение максимального и минимального элемента массива

@Pendor · Регистрация: 29.10.2012

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

Пожалуйста, помогите решить задачу!!!
Тема: "Действия над строками и столбцами матрицы"
Задача: Дан двумерный массив. Определить: максимальный элемент 3-его столбца и его номер; минимальный элемент 4-ой строки и её номер.
Заранее, благодарю!!!

@Pendor · 16.03.2013, 19:31 **[ТС]**

Помогите пожалуйста решить задачу!!!

Новичок · 16.03.2013, 19:46

Pascal

program lab_pascal;
uses Crt;
var a:array[1..20,1..20]of Integer;
i,j,n,m,max,min:Integer;
begin
ClrScr;
Write('Количество строк,n=');
Readln(n);
Write('Количество стобцов,m=');
Readln(m);
Writeln('Введите значения элементов матрицы:');
for i:=1 to n do 
for j:=1 to m do
begin
Write('a[',i,',',j,']=');
Readln(a[i,j]);
end;
Writeln('Исходный массив:');
for i:=1 to n do
begin
for j:=1 to m do Write(a[i,j]:4);
Writeln;
end;
max:=1;
min:=1;
for i:=2 to n do 
if a[i,3]>a[max,3] then max:=i;
for j:=1 to m do
if a[4,j]<a[4,min] then min:=j;
Writeln('Максимальный элемент 3-его столбца: ',a[max,3],',его номер: ',max);
Writeln('Минимальный элемент 4-ой строки: ',a[4,min],',его номер: ',min);
Readln;
end.

@Pendor · 16.03.2013, 20:14 **[ТС]**

Спасибо!

@Pendor 0 / 0 / 3 Регистрация: 29.10.2012 Сообщений: 99
		1
	Нахождение максимального и минимального элемента массива 12.03.2013, 20:52. Показов 1239. Ответов 3 Метки нет (Все метки) Пожалуйста, помогите решить задачу!!! Тема: "Действия над строками и столбцами матрицы" Задача: Дан двумерный массив. Определить: максимальный элемент 3-его столбца и его номер; минимальный элемент 4-ой строки и её номер. Заранее, благодарю!!! 0

@Pendor 0 / 0 / 3 Регистрация: 29.10.2012 Сообщений: 99
	16.03.2013, 19:31 [ТС]	2
	Помогите пожалуйста решить задачу!!! 0

@Pendor 0 / 0 / 3 Регистрация: 29.10.2012 Сообщений: 99
	16.03.2013, 20:14 [ТС]	4
	Спасибо! 0