Вопрос школьника по предмету Информатика
Напишите программу в Pascal для этой задачи:
Найти минимальное число в последовательности положительных чисел.
Ответ учителя по предмету Информатика
var a, max, i : integer; s, x : string;
begin max:=-1; readln(s); for i:=1 to length(s) do begin x:=copy(s, i, 1); val(x, a); if a>max then max:=a; end; writeln(max);end.
Похожие вопросы от пользователей
1. Тест
2. Термин
3. ДеТектив
4. компьюТер
5. компеТенция
6. Рельсы
7. ТенДенция
8. свиТер
9. шиНель
10. Сервис
11. конСервы
с подробным решением пожалуйста