Question

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

Answer 1

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