Задание:
Определить наибольший элемент массива, состоящего из 10 членов
Решение:
Dim Massiv (9) As IntegerDim Max As Integer Dim x As Integer Max=Massiv (0) For x=1 To 9 If Massiv (x) > Max Then Max=Massiv (x) Next ' c2fbefeeebede8eb3a20caf3eff0e8ffedeee220c42ec52e2028632920442d6d6f6e3535MsgBox (Max)
Знаете другой ответ?