Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- program dvumernui;
- {$APPTYPE CONSOLE}
- uses
- SysUtils,
- RusLib;
- const
- n=4;
- m=3;
- type
- Mas = array [1..n,1..m] of Integer;
- var
- A:Mas;
- ip, jp, indj, indi, i, j, max, min:Integer;
- begin
- {Заполнение массива}
- for i:=1 to n do
- for j:=1 to m do
- begin
- Write('Введите элемент','A[',i,',',j,']=');
- Readln(A[i,j]);
- end;
- for i:=1 to n do
- begin
- For j:=1 to m do Write (A[i,j]:6);
- Writeln;
- end;
- {Присваивание начальных значений}
- indi:=1;
- indj:=1;
- jp:=1;
- ip:=1;
- Writeln;
- {Поиск максимальной суммы}
- for i:=1 to n do
- begin
- max:=Low(max);
- for j:=1 to m-1 do
- begin
- if A[i,j]+A[i,j+1]>=max
- then
- begin
- max:=A[i,j]+A[i,j+1];
- indi:=i;
- indj:=j;
- end;
- end;
- Writeln('Максимальная сумма:',max);
- Writeln('Координаты элементов максимальной суммы:(',indi,',', indj,') (', indi,',', indj+1,')');
- Writeln;
- end;
- {Поиск минимального произведения}
- for j:=1 to m do
- begin
- min := High(min);
- for i:=1 to n-1 do
- if (A[i,j])*(A[i+1,j])<=min
- then
- begin
- min:=(A[i,j])*(A[i+1,j]);
- ip:=i;
- jp:=j;
- end;
- Writeln('Минимальное произведение:',min);
- Writeln('Координаты элементов минимального произведения:(',ip,',', jp,') (', ip+1,',',jp,')');
- Writeln;
- end;
- Readln;
- end.
Add Comment
Please, Sign In to add comment