Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом

Здравствуйте, уважаемые эксперты!
проблема с задачкой на одномерные массивы.она звучит так: вычислить среднее арифметическое значение и количество элементов массива А(n) (1<=n<=80), которое больше за заданное число F. //что нужно исправить в коде чтоб она правильно работала? потому что сейчас она выводит несколько средних арифметических значений и соответственно несколько значений количества элементов.

Вопрос задала: Nostalgia (статус: Посетитель) Вопрос отправлен: 27 декабря 2008, 19:51 Состояние вопроса: открыт, ответов: 1.

Ответ #1. Отвечает эксперт: Вадим К

Здравствуйте, Nostalgia!
Обычное дело - попутали малось строки. Зачем выводить на каждый чих значение среднего...

program lab14_z1_odn_massivu;
{$APPTYPE CONSOLE}
uses
  SysUtils;
const n=5;
var A:array[1..n] of integer;
    i:byte;
    sra:real;
    F:real;
    kol:integer;
    sum:real;
begin
writeln ('input F');
readln (F);
writeln ('input masiv A');
for i:=1 to n do
read (A[i]);
sum:=0;
kol:=0;
for i:=1 to n do
begin
if A[i]>F then
begin
sum:=sum+A[i];
kol:=kol+1;
end;
if kol = 0 then 
writeln('vse ploho')
else begin
sra:=sum/kol;
writeln ('sra=',sra,' kol=',kol);
end;
end;
readln; readln
  { TODO -oUser -cConsole Main : Insert code here }
end.

Ответ отправил: Вадим К (статус: Академик) Время отправки: 27 декабря 2008, 20:51 Оценка за ответ: 5

Мини-форум вопроса

Мини-форум пуст.

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.