Предмет: Информатика,
автор: alex095
ПОМОГИТЕ!!! СРОЧНО НУЖНО!PASCAl
Введите с клавиатуры одномерный массив P(T), элементами которого являются положительные и отрицательные числа. Определите среднее арифметическое положительных чисел, наименьшее среди первых 9-ти чисел и частноеот деления наименьшего и среднего арифметического. Сформируйте новый массив R(F), состоящий из элементов массива P(T), которые больше найденного частного.
Ответы
Автор ответа:
0
uses crt;
var p,r: array [1..10000] of real;
x,y,t,f,k: integer;
sum,sr,ch,min: real;
begin
sum:=0; k:=0; f:=1;
write('T='); readln(t);
for x:=1 to t do
begin
write('p[',x,']:');
readln(p[x]);
end;
min:=p[1];
for x:=1 to t do
if p[x]>0 then begin
sum:=sum+p[x];
inc(k);
end;
for x:=1 to 9 do
if p[x]<min then min:=p[x];
sr:=sum/k;
ch:=min/sr;
for x:=1 to t do
if p[x]>ch then begin
r[f]:=p[x];
inc(f);
end;
writeln;
for y:=1 to f-1 do
writeln('r[',y,']:',r[y]);
readln;
end.
var p,r: array [1..10000] of real;
x,y,t,f,k: integer;
sum,sr,ch,min: real;
begin
sum:=0; k:=0; f:=1;
write('T='); readln(t);
for x:=1 to t do
begin
write('p[',x,']:');
readln(p[x]);
end;
min:=p[1];
for x:=1 to t do
if p[x]>0 then begin
sum:=sum+p[x];
inc(k);
end;
for x:=1 to 9 do
if p[x]<min then min:=p[x];
sr:=sum/k;
ch:=min/sr;
for x:=1 to t do
if p[x]>ch then begin
r[f]:=p[x];
inc(f);
end;
writeln;
for y:=1 to f-1 do
writeln('r[',y,']:',r[y]);
readln;
end.
Похожие вопросы
Предмет: Русский язык,
автор: raipparts
Предмет: Английский язык,
автор: Zlobinaliz2007
Предмет: Математика,
автор: Аноним
Предмет: Химия,
автор: Nastiya50
Предмет: Обществознание,
автор: 19Анастасия98