Напишите программу, в которой с экрана вводятся целые - вопрос №15683429 от Диляра20082107 02.08.2022 11:14

Question

Другие предметы: Напишите программу, в которой с экрана вводятся целые числа до тех пор, пока не будет введен ноль. Из введенных чисел найти минимальное положительное и его номер. Использовать массивы нельзя.

Диляра20082107 · Answer

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....