Опубликовано 12.06.2017 по предмету Информатика от Гость >> <<

Числа вводятся до тех пор пока на введено число 0. посчитать количество введённых чисел
нарисуйте блок схему

Ответ оставил Гость

{с клавиатуры вводится число a, до тех пор, пока не будет введен 0. Начальное введенное a записывается в min  и max, чтобы потом в цикле было с чем сравнивать}
var
min,max,a:real;
begin
   readln(a);
   min:=a;max:=a;
    while a<>0 do
        begin
             readln(a);
                 if a>max then
                     max:=a;
                 if a                      min:=a;
         end;
writeln(min: ,min,  max: ,max);
end.