{* Задача103 *}

REM basic

' Ввести двумерный массив M x N. Определить максимальные значения для каждого столбца.


10 INPUT "Количество строк ="; M%: If M% < 1 Then 10
20 INPUT "Количество столбцов ="; N%: If N% < 1 Then 20
30 Dim AR(M%, N%)
40 For I=1 To M%
50 For J=1 To N%
60 PRINT "Элемент "; I; "-й строки, "; J; "-го столбца = {;
}70 INPUT AR(I, J)
80 Next J, I
90 Dim MAX(N%)  { Результирующий массив
}100 For J=1 To N%
110 MAX(J) = AR(1, J)
120 For I=2 To M%
130 If MAX(J) > AR(I, J) Then MAX(J) = AR(I, J)
140 Next I, J
150 PRINT "Максимальные значения в столбцах:"
160 For I=1 To N%
170 PRINT MAX(I)
180 Next I
190 End