1)Последовательно вводятся N целых чисел. Найти минимальное из положительных значений(Паскаль АВС)
Ответы
Ответ дал:
3
program sgr;
var
n, i, a, min: integer;
begin
read(n);
min := 32767;
for i := 1 to n do
begin
read(a);
if (a > 0) and (a < min) then
min := a;
end;
if a < 32767 then
write(min)
else
write('Нет положительных чисел, меньших 32767');
end.
Вас заинтересует
2 месяца назад
2 месяца назад
4 месяца назад
4 месяца назад
1 год назад
7 лет назад