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

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

Question

Информатика

Евген

18 апреля, 09:23

Напишите программу в 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 для этой задачи:

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