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

Question

Информатика

Аника

30 марта, 14:06

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

+3

Ответы (1)

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

Данило · Answer 1

Var

a:array[1 ... 10]of longint;

n, m, k, i, l:longint;

begin

k:=maxlongint;

for i:=1 to 3 do read (a[i]) ;

for i:=1 to 3 do if (a[i]>0) and (a[i]
writeln (k) ;

readln;

end.