Определить минимальный элемент в каждом столбце матрицы и выбрать из них максимальный

02.10.2013, 23:13. **Показов** 2192. **Ответов** 1

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

Вывести на экран матрицу 5х3, элементами которой являются целые случайные числа из интервала (19,49). Определить минимальный элемент в каждом столбце и выбрать из них максимальный.
Помогите, пожалуйстаа

@Turbal · 02.10.2013, 23:54

Pascal

Program matrix53;
uses Crt;
const n = 5;
      m = 3;
var A: Array [1..n,1..m] of Integer;
    i,j,min,max:Integer;
begin
ClrScr;
Randomize;
for i:=1 to n do
    begin
    for j:=1 to m do
        begin
        A[i,j] := Random(31)+19;
        Write(A[i,j],' ');
        end;
    WriteLn;
    end;
for i:=1 to m do
    begin
    min:=32000;
    for j:=1 to n do
        if A[j,i]<min then min := A[j,i];
    if min>max then max := min;
    end;
WriteLn;
WriteLn('max_min = ',max);
end.

АлинаВоронцова
		1
	Определить минимальный элемент в каждом столбце матрицы и выбрать из них максимальный 02.10.2013, 23:13. Показов 2192. Ответов 1 Метки нет (Все метки) Вывести на экран матрицу 5х3, элементами которой являются целые случайные числа из интервала (19,49). Определить минимальный элемент в каждом столбце и выбрать из них максимальный. Помогите, пожалуйстаа

	02.10.2013, 23:54

Опции темы

Определить минимальный элемент в каждом столбце матрицы и выбрать из них максимальный

Решение