|
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)
Next: Next
PRINT: PRINT "massiv A:"
For i = 1 To y
PRINT a(i);
Next
End
|