Напишите программу, в которой с экрана вводятся целые числа до тех пор, пока не будет введен ноль. Из введенных чисел найти минимальное положительное и его номер. Использовать массивы нельзя.
bochinskaya06
2
15.12.2020 04:54
0
Другие вопросы по теме Другие предметы
hikita07
10.12.2020 16:17
tar02
18.01.2021 17:09
GINVIC
18.01.2021 17:09
Посемуська
18.01.2021 17:08
irina0208ga
20.05.2020 18:20
TASHER228YMMlol
20.05.2020 18:20
madina1920
20.05.2020 18:20
Популярные вопросы
- Решить в 9 часов утра из города но шоссе выехала машина со скоростью 72 км/час....
1 - Ичкм определяется цвет, видимый глазом - длиной волны или частотой?...
2 - Напишите 5 простых и 5 сложных предложений из художественной летературы...
3 - Почему эмигрировала мария цветаева?...
3 - Вчетырёх пробирках находится раствор сульфата меди(2). а) нитрата калия б)...
3 - №1 what does sarah tell you? report the sentences. 1) i know the 2) i have...
2 - Переведите .what is the weekend? it is saturday and sunday. during the week...
2 - Вынесите за скобки общий множитель : 1.ay+cy 2.a( x-y)-c(x-y)....
1 - Докажите опытным путём, что в состав соляной кислоты входят ионы водорода и...
3 - Какое количество вещества кислорода потребуется для сжигания кальция количеством...
3
var
max,a : integer;
begin
readln(a);
max := a;
repeat
readln(a);
if (a > max) and (a <> 0) then
max := a;
until a = 0;
writeln(max);
readln;
end.