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

Найти минимальное число в последовательности положительных чисел.

Question

Информатика

Лукаря

26 сентября, 09:42

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

Найти минимальное число в последовательности положительных чисел.

+3

Ответы (1)

Знаете ответ на вопрос?

Христена · Answer 1

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.

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

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

Найти минимальное число в последовательности положительных чисел.