Предмет: Другие предметы,
автор: etozhehaxy
Напишите программу, в которой с экрана вводятся целые числа до тех пор, пока не будет введен ноль. Из введенных чисел найти минимальное положительное и его номер. Использовать массивы нельзя.
Ответы
Автор ответа:
0
Ответ:
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.
Интересные вопросы
Предмет: Обществознание,
автор: OhikoSan
Предмет: Русский язык,
автор: umnik28
Предмет: Математика,
автор: Zajaca
Предмет: Математика,
автор: Xmangos4
Предмет: Алгебра,
автор: OLFrench