Ответы на вопрос:
Uses crt; var a ,mn ,n ,imn : integer; begin clrscr; writeln ( 'введите натуральные числа, окончание ввода 0: ' ); repeat readln (mn ); until mn> 0; n : = 1; imn : = 1; repeat repeat readln (a ); until a> = 0; n : =n + 1; if (a< > 0 ) and (a< mn ) then begin mn : =a; imn : =n; end; until a = 0; write ( 'минимальное из чисел, не считая 0=' , mn , ' его номер=' ,imn ); readln end.
Популярно: Информатика
-
ElenaFevralV12.01.2022 10:58
-
зарина6748925.05.2023 20:58
-
Вика444517.05.2020 11:39
-
alexei201611113.11.2021 16:46
-
KarinaRihter06.08.2020 14:11
-
Denisgurlo29.03.2023 05:29
-
Сетора1115.09.2022 00:07
-
аомппо17.01.2023 22:48
-
ПАРРА27.10.2021 16:05
-
egoregorov543124.06.2020 23:46