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