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

Question

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

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.

Comments

спасибо