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

Question

Информатика

Ларион

21 декабря, 17:08

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

+5

Ответы (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.