4.2. Пример выполнения задач 2 группы

Дан массив A(N,M) содержащий данные по размеру уплаченного налога на прибыль по N организациям за M лет. Найти минимальный размер уплаченного налога, каким предприятием и в каком году.

10 INPUT “Введите количество строк и столбцов”;N,M

20 DIM A(N,M)

30 FOR I=1 TO N

40 FOR J=1 TO M

50 INPUT “Введите значение элемента массива”;A(I,J)

60 NEXT J,I

70 MIN=A(1,1):K=1:L=1

80 FOR I=1 TO N

90 FOR J=1 TO M

100 IF A(I,J)<MIN THEN MIN=A(I,J):K=I:L=J

110 NEXT J,I

120 PRINT “Минимальный налог =”; MIN; ”номер организации =”;K; ”индекс года =”; L

130 END