Дан двумерный массив. Найти в каком столбце матрицы находится меньший 1-ый
Дан двумерный массив. Найти в каком столбце матрицы находится наименьший первый элемент, принадлежащий интервалу [1, 4].
1 ответ
Ирка Яфуняева
Program Task;
Const N = 5; max = 25;
Var a: Array [1..N, 1..N] of Integer;
i, j, ir, jr: Integer;
Begin
Randomize;
For i := 1 To N Do
For j := 1 To N Do
a[i, j] := Random(max * 2) - max + 1;
WriteLn('Матрица: ');
For i := 1 To N Do
Begin
For j := 1 To N Do
Write(a[i, j], ' ');
WriteLn;
End;a[i, j] := Random(50) - 25;
ir := 1;
jr := 1;
For i := 1 To N Do
For j := 1 To N Do
If a[i, j] lt; a[ir, jr] Then
Begin
ir := i;
jr := j;
End;
WriteLn('Столбец малого элемента: ', jr);
ReadLn;
End.
Const N = 5; max = 25;
Var a: Array [1..N, 1..N] of Integer;
i, j, ir, jr: Integer;
Begin
Randomize;
For i := 1 To N Do
For j := 1 To N Do
a[i, j] := Random(max * 2) - max + 1;
WriteLn('Матрица: ');
For i := 1 To N Do
Begin
For j := 1 To N Do
Write(a[i, j], ' ');
WriteLn;
End;a[i, j] := Random(50) - 25;
ir := 1;
jr := 1;
For i := 1 To N Do
For j := 1 To N Do
If a[i, j] lt; a[ir, jr] Then
Begin
ir := i;
jr := j;
End;
WriteLn('Столбец малого элемента: ', jr);
ReadLn;
End.
Bilalov Mishanja
спасибо.
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
10) Килограмм конфет дороже килограмма печенья на 52 р. За 8
Математика.
Во сколько раз число атомов кислорода в земной коре больше числа
Химия.
Составить монолог от имени дневника двоечника 7-10 предложений
Русский язык.
Рассматривая литературный язык как сложное взаимодействие книжного языка и разговорного,В.И.Чернышёв горячо
Разные вопросы.
Арабы входят в __________________ групп народов. Местом расселения арабов с незапамятных
Разные вопросы.
Грузовой автомобиль марки краз за одну поездку может доставить 7.500 кирпичей
Математика.
Определить предложения какие они по цели высказывания и по интонации
Русский язык.
"Три толстяка" Называли эту площадь Площадью Звезды последующей причине.
Русский язык.
на одной грядке коротышки посадили 3 ряда морковок по 8 штук
Разные вопросы.
эссе на тему какое образование дается в каждой семье
Қазақ тiлi.
Облако тегов