Дан двумерный массив. Определить в каком столбце матрицы находится наименьший первый элемент, принадлежащий интервалу [1, 4].
10-11 класс
|
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] < a[ir, jr] Then
Begin
ir := i;
jr := j;
End;
WriteLn('Столбец минимального элемента: ', jr);
ReadLn;
End.
Другие вопросы из категории
помогите с задачей на PascalABC.
Найти и вывести все шипящие буквы ( без повторений ), которые встретились в самом длинном слове.
2.Почему современные персональные компьютеры доступен для массового потребления?
Класс может иметь интерфейс для доступа к его экземплярам извне. Он реализуется модификаторами доступа:
1. private
2. inline
3. public
4. protected
5. static
Какого типа эта система:естественная или искусственная;
Выделите входящие в нее подсистемы;
Выделите материальные и информационные связи;
Какие изменения в структуре школы следует сделать,чтобы она лучшим
образом выполняла своё назначение?
Читайте также
Определить,равен ли квадрат этого числа учетверённой сумме кубов его цифр. Например, для числа 48 ответ положительный, для числа 52-отрицательный. 3. Дано двузначное число. Определить: a. кратна ли трём сумма его цифр b. кратна ли сумма его цифр числу a. 4. Дано трёхзначное число Определить,равен ли квадрат этого числа сумме кубов его цифр. 5. Дано двузначное число,определить:входит ли в него цифра 3: входит ли в него цифра a.
2. Задать двумерный массив (4х4) случайными значениями от 12 до 18 включительно. Вывести сумму значений элементов каждого столбца матрицы.
3. Задать двумерный массив (7х7) случайными значениями от 12 до 18 включительно. В каждом столбце матрицы найти количество элементов, значения которых меньше 14.
4. Задать двумерный массив (3х3) с клавиатуры, поменять значения элементов 1 столбца со вторым.
5. Найти минимальный элемент матрицы (5х5), заданной случайными значениями от 1 до 5 включительно, лежащие ниже главной диагонали.
Решите хотя бы одну, или две)
Вот задачи:
1. Заполнить одномерный массив, размерностью 15 по следующему правилу: на нечетном месте должен стоять элемент от 10 до 100, а на четном месте должен находиться нечетный элемент на том же промежутке.
2. Дан одномерный массив, заполненный целыми случайными числами. Определить, на сколько больше сумма четных элементов по сравнению с суммой элементов кратных 3.
3. Дан двумерный массив, размерностью 6х7. Определить, сумма каких элементов больше: 2-го столбца или 3-ей строки.
размерностью n х m,
заполненный случайными числами. Определить, есть ли в данном массиве строка,
содержащая больше положительных элементов,
чем отрицательных. Ответ: «Есть» или «Нет».
Если можно решите попроще, каждая отдельная операции через подпограмму