Найти наибольшее из чисел. Если числа равны, то вывести любое из них - VB

Узнай цену своей работы

Формулировка задачи:

Найти наибольшее из чисел. Если числа равны, то вывести любое из них. ВХОДНЫЕ ДАННЫЕ Во входном файле Z_1.in записаны числа через пробел. Все числа целые, не меньшие -10000 и не большие 10000. ВЫХОДНЫЕ ДАННЫЕ В файл Z_1.out вывести единственное число. ПРИМЕР Z_1.in 4 7 5 8 999 788 -10 -1000 -100 777 -55 9876 8 8 8 9 11 Z_1.out 999 9876 11 Моя проблема в том, что программа сравнивает только первые три числа, то есть выводит только 7; -10; 8 а надо чтобы программа независимо от длины строки искало максимальное число. КОД ПРОГРАММЫ на языке Visual basic 6:
И ещё один вопрос. Как сделать свой целочисленный тип данных от -10000 до 10000?

Решение задачи: «Найти наибольшее из чисел. Если числа равны, то вывести любое из них»

textual
Листинг программы
a = Split(trim(s))'разбиваем строку по пробелам

Оцени полезность:

8   голосов , оценка 3.625 из 5
Похожие ответы