Продолжаю выкладывать решения простейших задач, так как прошлый ребус привёл мне на блог не мало посетителей и это не может не радовать!
Сегодня я напишу решение следующей задачи: Задан двухмерный массив вещественных чисел размерности 3х3. Найти номер строки и номер столбца, в которых находится наименьший элемент. Массив описать как типизированную константу.
Решение на C:
#include <stdio.h> #define SIZE 3 int main() { const int array[SIZE][SIZE] = { {2, 2, 3}, {3, 2, 3}, {6, 1, 5} }; int i, j, min = array[0][0]; for (i = 0; i < SIZE; i++) { for (j = 0; j < SIZE; j++) { if (min > array[i][j]) { min = array[i][j]; } } } printf("min = %d\n", min); return 0; }
Решение на Pascal:
const SIZE = 2; mas: array[0..SIZE, 0..SIZE] of integer = ( (2, 2, 3), (3, 2, 3), (6, 1, 5) ); var i, j, min: integer; begin min := mas[0][0]; for i := 0 to SIZE do begin for j := 0 to SIZE do begin if (min > mas[i][j]) then min := mas[i][j]; end; end; writeln('min = ', min); end.