|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
03.12.2008, 14:55 | #1 |
Регистрация: 03.12.2008
Сообщений: 4
|
НАЙДИТЕ ОШИБКУ В ПРОГРАММЕ
program co;
USES CRT; const n=22; var c:array[1..22] of integer; k,i: integer; s,sa:real; begin for i:= 1 to n do readln (C[I]); s:=0; k:=0; for i:=1 to n do if c[i]>5 then s:=s+c[i]; k:= k+1; if k>0 then sa:=s/k; writeln(sa); readln; end. А ЗАДАЧКА ТАКАЯ:НАЙТИ ОТНОШЕНИЕ ВСЕХ ЭЛЕМЕНТОВ ОТЛИЧНЫХ ОТ 5 К ИХ КОЛ-ВУ (ИМЯ МАССИВА C0 И РАЗМЕРНОСТЬ 22) |
03.12.2008, 14:58 | #2 |
Форумчанин
Регистрация: 29.06.2008
Сообщений: 603
|
Код:
|
03.12.2008, 15:00 | #3 |
Участник клуба
Регистрация: 10.11.2008
Сообщений: 1,502
|
Код:
Нормальное состояние техники - нерабочее, все остальное частный случай.
|
03.12.2008, 15:05 | #4 |
Регистрация: 03.12.2008
Сообщений: 4
|
А ВСЕ ОСТАЛЬНОЕ ЗНАЧИТ ПРАВИЛЬНО?
|
03.12.2008, 15:08 | #5 |
Участник клуба
Регистрация: 10.11.2008
Сообщений: 1,502
|
Запустите и посчитайте
Нормальное состояние техники - нерабочее, все остальное частный случай.
|
03.12.2008, 15:10 | #6 |
Регистрация: 03.12.2008
Сообщений: 4
|
writeln(s:5:3) А МОЖЕТЕ ОБЪЯСНИТЬ ЧТО ЭТО?
|
03.12.2008, 15:16 | #7 |
Участник клуба
Регистрация: 10.11.2008
Сообщений: 1,502
|
а попробуйте writeln(s) и сразу поймите
Нормальное состояние техники - нерабочее, все остальное частный случай.
|
03.12.2008, 15:17 | #8 |
Пользователь
Регистрация: 02.12.2008
Сообщений: 27
|
печать суммы в вормате 5 общих символов и 3 после запятой
|
03.12.2008, 15:19 | #9 |
Регистрация: 03.12.2008
Сообщений: 4
|
А ПОНЯТНО!
СТЕПЕНИ НЕТ |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
помогите на найти ошибку в программе | SYL@R | Помощь студентам | 1 | 28.11.2008 12:35 |
ПОМОГИТЕ исправить ошибку в программе | SYL@R | Помощь студентам | 1 | 21.11.2008 14:48 |
Найдите Ошибку. Работа с файлами | Lord_Rufus | Помощь студентам | 2 | 03.10.2008 11:44 |
Помогите найти ошибку в программе | KnDmPetr | Паскаль, Turbo Pascal, PascalABC.NET | 5 | 10.03.2008 14:19 |
Найдите ошибку! | geniy | JavaScript, Ajax | 4 | 04.12.2007 16:22 |