ПОМОГИТЕ!!! СРОЧНО НУЖНО!PASCAl Введите с клавиатуры одномерный массив P(T), элементами которого являются положительные и отрицательные числа. Определите среднее арифметическое положительных чисел, наименьшее среди первых 9-ти ...
ПОМОГИТЕ!!! СРОЧНО НУЖНО!PASCAl Введите с клавиатуры одномерный массив P(T), элементами которого являются положительные и отрицательные числа. Определите среднее арифметическое положительных чисел, наименьшее среди первых 9-ти чисел и частноеот деления наименьшего и среднего арифметического. Сформируйте новый массив R(F), состоящий из элементов массива P(T), которые больше найденного частного.
Гость
Ответ(ы) на вопрос:
Гость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]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.
Не нашли ответ?
Похожие вопросы