Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

одномерные массивы [D7, XP]

Страницы: < 1 2 3
Nostalgia © (2008-12-27 21:17:00)
Здравствуйте, уважаемые эксперты!
проблема с задачкой на одномерные массивы.она звучит так: вычислить среднее арифметическое значение и количество элементов массива А(n) (1<=n<=80), которое больше за заданное число F. //что нужно исправить в коде чтоб она правильно работала? потому что сейчас она выводит несколько средних арифметических значений и соответственно несколько значений количества элементов.
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;
sra:=sum/kol;
writeln ('sra=',sra,' kol=',kol);
end;
end;
readln; readln
{ TODO -oUser -cConsole Main : Insert code here }
end.

Johnmen (2008-12-27 21:47:00) [41]

> Сергей М. © (27.12.08 21:46) [11]

Да ладно, не напрягайся.... Ей же не надо ...:)

Nostalgia (2008-12-27 21:47:00) [42]
гг....это больше похоже не на форум программистов, а на форум , где только и ждут кого-то нового, чтобы его оскорбить

Сергей М. (2008-12-27 21:46:00) [43]

> она выводит несколько

Сколько итераций цикла, в тело которого ты влупила writeln, столько будет и "несколько".

Сергей М. (2008-12-27 21:42:00) [44]

> Johnmen

Оно, наконец, определилось - отныне это она)
До этого был он)

Johnmen (2008-12-27 21:41:00) [45]
Так и запишем - выбросила в пропасть (с)

Сергей М. (2008-12-27 21:41:00) [46]
Не понимаю, что здесь непонятного ?
Если код, как ты говоришь, "читабельный", ошибки в нем можно увидеть легко и сделать это ты вполне можешь сама.

Nostalgia (2008-12-27 21:38:00) [47]
не понимаю. что здесь не читабельного?

Johnmen (2008-12-27 21:36:00) [48]
Будь любезен, прояви уважение, оформи код в читабельном виде...

Сергей М. (2008-12-27 21:36:00) [49]

> я

Тогда быль любезно - приведи его в порядок, прежде чем представлять на суд.
Читать это безобразие нет ни малейшего желания.
Совесть надо иметь элементарную ..

Nostalgia (2008-12-27 21:34:00) [50]
это же описание.....

Johnmen (2008-12-27 21:32:00) [51]

> { TODO -oUser -cConsole Main : Insert code here }

вот здесь ошибка. надо переписать...

Nostalgia (2008-12-27 21:30:00) [52]
я. кто ж ещё

Сергей М. (2008-12-27 21:28:00) [53]
Этот код ктописал ?

Страницы: < 1 2 3

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »