Консультация № 136462
12.05.2008, 13:45
0.00 руб.
0 1 1
создать 2-х мерный массив, имеющий 4 строки и 3 столбца. Найти в нем максимальный элемент и вывести его местоположение в массиве

Обсуждение

Неизвестный
12.05.2008, 14:51
общий
это ответ
Здравствуйте, Cobain!

Программа в приложении. Переменные <b>Min</b> и <b>Max</b> задают минимальное и максимальное значения для элементов массива.

Приложение:
Program Pr136462; Uses CRT; Const M = 4; N = 3; Var Min, Max, i, j, Mi, Mj: Integer; Arr: Array[1..M, 1..N] of Integer;Begin ClrScr; Randomize; Min := -10; Max := 10; Mi := 1; Mj := 1; WriteLn(‘Исходный случайно сформированный массив:‘); for i := 1 to M do begin for j := 1 to N do begin Arr[i, j] := Random(Max - Min + 1) + Min; Write(Arr[i, j]: 5); if Arr[i, j] > Arr[Mi, Mj] then begin Mi := i; Mj := j; end; end; WriteLn; end; WriteLn; WriteLn(‘Максимальный элемент: строка #‘, Mi, ‘, столбец #‘, Mj); ReadLn;End.
Форма ответа