program CopyPastFromCodenetRu;
uses Crt;
var
n: integer;
A: array of Real;
Ave: Real;
i: integer;
begin
ClrScr;
Write('n = ');
ReadLn(n);
SetLength(A, n);
Ave := 0;
for i := 0 to n - 1 do
begin
Write('A[', i + 1, '] = ');
ReadLn(A);
Ave := Ave + A;
end;
Ave := Ave / n;
WriteLn('Average = ', Ave:6:3);
ReadLn;
end.
Пожалуйста, помогите решить задачу!!!!!!!!!
Написать программу, которая вычисляет среднее арифметическое вводимой с клавиатуры последовательности дробных чисел. Количество чисел должна задаваться при выполнении программы.
Код:
Если не секрет, а где вы учитесь?
Киевский Промышленно-экономический колледж))
А почему вы спрашиваете???? если не секрет)
А почему вы спрашиваете???? если не секрет)
Спасибо большое!!!!!!!!!!!!!!!!!
Я очень благодарен вам!!!!!!!!
Вы меня спасли)))))
Спасибо!!!!!!!!!!!!!!!!!!!!!!
Я очень благодарен вам!!!!!!!!
Вы меня спасли)))))
Спасибо!!!!!!!!!!!!!!!!!!!!!!
[QUOTE=vanka_333]
А почему вы спрашиваете???? если не секрет)
[/QUOTE]
Да так, интересно.)))
P.S. Заголовок программы подправьте, а то так и сдадите... :)
А почему вы спрашиваете???? если не секрет)
[/QUOTE]
Да так, интересно.)))
P.S. Заголовок программы подправьте, а то так и сдадите... :)
Да нет подправлю))))))))))))
vanka_333
вы уже создали на форуме две темы и обе нарушают правила форума самым грубым образом. пожалуйста, ознакомьтесь с правилами, иначе темы могут исчезнуть или вы попасть в бан... в общем для вашего же блага - настоятельного рекомендую. модератор.
вы уже создали на форуме две темы и обе нарушают правила форума самым грубым образом. пожалуйста, ознакомьтесь с правилами, иначе темы могут исчезнуть или вы попасть в бан... в общем для вашего же блага - настоятельного рекомендую. модератор.