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

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