Предмет: Информатика,
автор: leonovru
Дано целое число N и набор из N целых чисел. Найти минимальное положительное число из данного набора. Если положительные числа в наборе отсутсвуют, то вывести 0.
С выводом минимального положительного числа у меня вроде бы получилось, а вот с проверкой на отрицательность не вышло
Ответы
Автор ответа:
0
Кинь сюда пожалуйста свой код, я проверю его. А вообще проверка на отрицаемость чисел проверяеться через условие 'Если массив меньше нуля, то'
Автор ответа:
0
Я так и проверял, но что-то не пошло
Автор ответа:
0
В моем задании давалось только для трех чисел, но мне хочется сделать для любого кол-ва чисел. ВО код: const n=3;
var i, imin: integer;
a: array [1..n] of real;
begin
a[1]:=-4.87; a[2]:=-2.8;
a[3]:=-4.32;
for i:=1 to n do
if a[i]<0 then
writeln('0');
imin:=1;
for i:=2 to n do
begin
if (a[i]>0) and (a[i]<a[imin]) then
imin:=i;
end;
writeln('Минимальное положительное число - ',a[imin])
end.
var i, imin: integer;
a: array [1..n] of real;
begin
a[1]:=-4.87; a[2]:=-2.8;
a[3]:=-4.32;
for i:=1 to n do
if a[i]<0 then
writeln('0');
imin:=1;
for i:=2 to n do
begin
if (a[i]>0) and (a[i]<a[imin]) then
imin:=i;
end;
writeln('Минимальное положительное число - ',a[imin])
end.
Автор ответа:
0
Прикрепил текстовый документ, ибо сюда не удобно вставлять код.
Приложения:
Похожие вопросы
Предмет: Алгебра,
автор: meruert741
Предмет: Қазақ тiлi,
автор: Аноним
Предмет: Французский язык,
автор: XanDer99
Предмет: Биология,
автор: anastasyatropin
Предмет: Физика,
автор: eiyurochkin