Question

Напишите программу ,в которой осуществляется ввод целых чисел (ввод осуществляется до тех пор , пока не будет введен ноль) и определение наименьшего из введеных чисел. Используйте оператор repeat

Answer 1

program CicleRepeat;
uses crt; {для использования clrscr - очистки экрана}
var mas: array[1..100] of integer;
i,n,min: integer;
begin
clrscr; {очистка экрана. Необязательно использовать}
writeln('Kol-vo elementov v massive?');
readln(n);
min:=0;
  repeat
   for i:=1 to n do
     write(mas[i]);
     readln(mas[i]);
    if mas[i]<min
      then min:=mas[i];
    writeln('naimenshee chislo ', min);
     until mas[i]=0;
end.

03b198061dcb91c43b18c79b600aee2a.pas