IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

> работа над ошибками, где ошибка в написании программмы?
сообщение
Сообщение #1


Новичок
*

Группа: Пользователи
Сообщений: 16
Пол: Женский

Репутация: -  0  +


Условие: дан одномерный массив А, размером N<=50. Найти среднюю геометрическую сумму положительных элементов.
Program MM;
const n=50;
var
A:array[1..n] of integer;
i,S:integer;
Sg: real;
begin

writeln ('ввести массив А');
for i:=1 to n do
read (A[i]);

for i:=1 to n do
if A[I]>0 then
begin
s:=1;
for i:=1 to n do
s:=s*A[i];
Sg:=exp(ln(s)/n);
end;
writeln ('Sg=',Sg:3);
end.


Сообщение отредактировано: volvo -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Сообщений в этой теме
Булавка   работа над ошибками   15.05.2006 22:59
Bokul   Нельзя чтобы названия проги было числом. :no1:   15.05.2006 23:07
Булавка   Нельзя чтобы названия проги было числом. :no1: н…   15.05.2006 23:09
APAL   Во первых - ТЕГИ [code][/code] кто будет за тебя п…   15.05.2006 23:17
volvo   ... ну, а в третьих... Тебе же надо среднее геомет…   15.05.2006 23:27
Романтик   ... ну, а в третьих... Тебе же надо среднее геоме…   15.05.2006 23:32
volvo   Романтик, а ты уверен, что в TP после того, как от…   15.05.2006 23:46
Романтик   Романтик, а ты уверен, что в TP после того, как о…   15.05.2006 23:51
Булавка   если не в падлу напишите программу с изменениями …   16.05.2006 0:01
Bokul   uses crt; const n=4; var A:array[1..n…   16.05.2006 0:18
n4oJllI   uses crt; const n=50; var A:array[1..n…   16.05.2006 1:53
Гость   спасибо большое.   16.05.2006 19:19
Булавка   обясните пожалусто что это такое- inc(k);   16.05.2006 19:32
Романтик   обясните пожалусто что это такое- inc(k); inc(k…   16.05.2006 19:40
Булавка   inc(k) равноценно k:=k+1 спасибо. теперь все ст…   16.05.2006 20:26


 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 28.03.2024 19:10
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name