mujgan04

14.12.2022 23:19 •  Информатика

Нужно исправить код На выходе должно получиться минимальное число из последовательности, красное 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.