Даны три числа. Найти среди них минимальное положительное число.
Даны три числа. Найти среди них минимальное положительное число.
Ответ(ы) на вопрос:
Гость
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]
Не нашли ответ?
Похожие вопросы