Напишите программу в Pascal для этой задачи: Найти минимальное число в последовательности...

Question

Напишите программу в Pascal для этой задачи:
Найти минимальное число в последовательности положительных чисел.

Answer 1

Var a, max, i : integer; s, x : string;
beginmax:=-1;readln(s);for i:=1 to length(s) do beginx:=copy(s, i, 1);val(x, a);if a>max then max:=a;end;writeln(max);end.