 Помогите пожалуйста, очень срочно!, Снова про массивы |
Прочтите прежде чем задавать вопрос!
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
| goosberry |
  15.07.2008 16:57
Сообщение
#1
|
 Новичок  Группа: Пользователи Сообщений: 40 Пол: Женский Репутация:  0   |
Дан массив из 10 целых элементов. Найти среднее арифметическое отрицательных элементов.
Вот что у меня получилось
program zadacha;
uses crt;
var: x:array [1..10] of integer;
i,S,K:integer;
Sr:real;
begin clrscr;
write ('Введите массив');
for i:=1 to 10 do readln (x[i]);
for i:=1 to 10 do if x[i]<0 then begin K:=K+1; S:=S+x[i];end;
sr:=s/k;
write (Sr);
readkey;
end.
Только ответ какой-то не верный получается. В чём причина? И ещё не подскажите как записать эту задачу в виде блок-схемы? |
   |
 
|
Сообщений в этой теме
goosberry Помогите пожалуйста, очень срочно! 15.07.2008 16:57
klem4 Обнули сумму и счетчик перед циклом, не все компил... 15.07.2008 17:02
goosberry
Обнули сумму и счетчик перед циклом, не все компи... 15.07.2008 17:07 goosberry О, кажись заработало....
klem4, volvo спасибо за ... 15.07.2008 17:14 volvo Приводи данные, с которыми проверяется программа, ... 15.07.2008 17:13 klem4 Программа построения блок-схем
В следующий раз,по... 15.07.2008 17:24 goosberry
Программа построения блок-схем
В следующий раз,п... 15.07.2008 17:34  |
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0
|
Текстовая версия | 29.07.2025 9:18 |