zadach113.BAS

{* Задача113 *}

REM basic

' Дана матрица С(X, Y). Найти в каждом столбце максимальный элемент и записать его в новую последовательность А(Y).


CLS
RANDOMIZE TIMER
INPUT "strok-"; x
INPUT "stolbcov-"; y
Dim c(x, y)
Dim a(y)
PRINT
PRINT "massiv C:"
For i = 1 To x
    For j = 1 To y
        c(i, j) = INT(100 * RND(1) - 25)
        PRINT c(i, j);
Next: PRINT: Next
For i = 2 To x
    For j = 1 To y
        a(j) = c(1, j)
        If c(i, j) > a(j) Then a(j) = c(i, j)
NextNext
PRINT: PRINT "massiv A:"
For i = 1 To y
    PRINT a(i);
Next
End