1. на входе непустая последовательность натуральных чисел с нулем в конце. вывести min и среднее арифметическое. представить блок-схему и pascal-программу. 2. на входе последовательность вещественных чисел с нулем в конце. вывести разброс последовательности (разность между min и max). представить pascal-программу.

1)a:real;com : array [1..100000] of integer; beginn:=100000;for i:=1 to n do beginreal(com[i]);if com[i]=0 then n:=0;end; min:=com[1];for i1:=2 to i do beginif min>com[i1] then min:=com[i1];end;for i1:=1 to i do begina:=a+com[i1];end;writeln('минимальное значение ',min,' среднее арифметическое ',a/i);end