1. ** входе непустая последовательность натуральных чисел с нулем в конце. Вывести MIN и...

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

Comments

пасибо дядя

---

2)var i,min,i1,max:integer;
a:real;
com : array [1..100000] of integer;
begin
n:=100000;
for i:=1 to n do begin
real(com[i]);
if com[i]=0 then n:=0;
end;
min:=com[1];
max:=com[1];
for i1:=2 to i do begin
if min>com[i1] then min:=com[i1];
end;
for i1:=2 to i do begin
if minend;
writeln('разброс последовательности ',max-min);
end.

---

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