Размещено 3 года назад по предмету
Информатика
от valerybelakva
Нужно исправить код, помогите пожалуйста. На выходе должно получиться минимальное число из последовательности, красное 5
program Kratnoepyati;
var m, min:Real;
i,n,imin: Integer;
begin
repeat
Write('Количество чисел для ввода:');
ReadLn(n);
until n>0;
WriteLn('Введите ' , n , ' чисел');
imin:=0;
for i:=1 to n do
begin
read (m);
if (m mod 5=0) then
begin
min:=m;
if (imin=0) or (imin>min) then
begin
min:=imin;
end;
end;
end;
if imin>0 then WriteLn('Минимальное натуральное число красное пяти=',imin)
else WriteLn('Нет положительных чисел');
end.