Обработка двумерного массива. Найти минимальный и максимальный элемент

@zet694 · Регистрация: 25.01.2012

В матрице A 4х4 найти минимальный и максимальный элемент,вычеслить P=A min + A max.Построить новую матрицу,в которой к элементам всех строк,кроме второй,прибевлено P,вторая строка без изминений.

@sasha0123 · 28.05.2012, 23:50

максимальное значение:

Pascal

max:=0; 
for i:=0 to 4 do begin 
for j:=0 to 4 do 
if mas [ i,j ] >max then max := mas [ i,j ];
end; 
writeln('',max); 
readln;

минимальное значение:

Pascal

min:=0; 
for i:=0 to 4 do begin 
for j:=0 to 4 do 
if mas [ i,j ] <max then max := mas [ i,j ]; 
writeln('',min); 
readln;

Значение переменной P:

Pascal

1	p:=max+min

Новая матрица:

Pascal

for i:=0 to 4 do begin 
for j:=0 to 4 do begin
if i:=2 then i:=i+1
else
mas_new[i,j]:=mas[i,j];
end;
end;

@zet694 · 30.05.2012, 10:23 **[ТС]**

Как это все в одной программе соединить?

@Черный ворон · 30.05.2012, 10:29

подряд написать. только поиск минимального и максимального можно объединить в одном двойном цикле. и еще счетчики цикла начинаются с 1, а не с 0

Добавлено через 1 минуту

Сообщение от sasha0123

минимальное значение:
Код Pascal
1
2
3
4
5
6
min:=0;
for i:=0 to 4 do begin
for j:=0 to 4 do
if mas [ i,j ] <max then max := mas [ i,j ];
writeln('',min);
readln;

копипаста=зло. строка должна быть такая (max на min надо поменять):

Pascal

1	if mas [ i,j ] <min then min := mas [ i,j ];

Добавлено через 1 минуту
и еще. обычно начальные значения минимального и максимального это не 0, а первый элемент массива: а[1,1]

@zet694 · 31.05.2012, 12:00 **[ТС]**

Хоть убей не получается,напишите кто может пожалуйста целиком.у меня 121ошибка постоянно.

@CodeR · 31.05.2012, 12:35

хоть выложи что у тя там за код...

@zet694 · 06.06.2012, 12:09 **[ТС]**

Если кому то понадобится решение.

Pascal

min := A[1,1];
max := min;
For i := 1 to 4 do
   For j := 1 to 4 do
       Begin
       If (A[i,j] < min) then min := A[i,j];
       If (A[i,j] > max) then max := A[i,j];
       End;
P := min + max;
For i := 1 to 4 do
    Begin
    If (i = 2) then Continue;
    For j := 1 to 4 do
        A[i,j] := A[i,j] + P;
    End;

@zet694 1 / 1 / 0 Регистрация: 25.01.2012 Сообщений: 30
		1
	Обработка двумерного массива. Найти минимальный и максимальный элемент 28.05.2012, 23:36. Показов 30034. Ответов 6 Метки нет (Все метки) В матрице A 4х4 найти минимальный и максимальный элемент,вычеслить P=A min + A max.Построить новую матрицу,в которой к элементам всех строк,кроме второй,прибевлено P,вторая строка без изминений. 0

@zet694 1 / 1 / 0 Регистрация: 25.01.2012 Сообщений: 30
	30.05.2012, 10:23 [ТС]	3
	Как это все в одной программе соединить? 0

@zet694 1 / 1 / 0 Регистрация: 25.01.2012 Сообщений: 30
	31.05.2012, 12:00 [ТС]	5
	Хоть убей не получается,напишите кто может пожалуйста целиком.у меня 121ошибка постоянно. 0

@CodeR Фрилансер 3417 / 2814 / 3000 Регистрация: 08.02.2012 Сообщений: 8,521 Записей в блоге: 1
	31.05.2012, 12:35	6
	хоть выложи что у тя там за код... 0

Опции темы