Delphi 7 - Помощь студентам - Страница 2

Hacker19_90 · 28.12.2010, 20:22

ну лано

Код:

pos_min := 1;
pos_max := 1;
for i := 1 to n do
begin
     if abs(a[i]) > abs(a[pos_max]) then
         max := i;
     if abs(a[i]) < abs(a[pos_min]) then
         min := i;
end;
sum := 0;
for i := 1 to n do
begin
     if (i <> pos_max) and (i <> pos_min) then
          sum := sum + massiv[i];
end;
sr := sum/n;

Ну думаю сделать массив ты и сам сможешь

Роман Романов · 28.12.2010, 20:32

если честно, то нет

Pein95 · 28.12.2010, 20:38

620252308 обращайся доведу до ума)

5naip · 29.12.2010, 14:16

не совсем уверен в правильности, но вот:

28.12.2010, 20:22	#11
Hacker19_90 Delphi Warrior Старожил Регистрация: 15.08.2008 Сообщений: 2,502	ну лано Код: `pos_min := 1; pos_max := 1; for i := 1 to n do begin if abs(a[i]) > abs(a[pos_max]) then max := i; if abs(a[i]) < abs(a[pos_min]) then min := i; end; sum := 0; for i := 1 to n do begin if (i <> pos_max) and (i <> pos_min) then sum := sum + massiv[i]; end; sr := sum/n;` Ну думаю сделать массив ты и сам сможешь *Mess with the best, die like the rest.* (с) Hackers Лабораторные, курсовые на Delphi\Pascal\C++ ya.flex-freelance@yandex.ru Icq - 636-954-303

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
На Delphi 7 сделать игру кто хочет стать миллионером в delphi 7	666dart666	Помощь студентам	11	04.11.2010 17:57
Rad Studio 2011 XE: новое в Delphi, C++ Builder, RadPHP и Delphi Prism	savva-paladin	Софт	18	02.10.2010 20:24
Delphi. Как нарисовать в Delphi два движущиеся шара с определенной скоростью?	redred	Общие вопросы Delphi	10	11.12.2007 10:43
Как открыть БД, написанную в Delphi если нf другой машине Delphi нет?	dagarik	БД в Delphi	7	22.10.2007 17:54
не StringGrid1.Cells[1,1]:='Delphi'; а вот так SG1.C[1,1]:='Delphi'	Nemesisking	Компоненты Delphi	7	08.09.2007 03:27

28.12.2010, 20:32	#12
Роман Романов Пользователь Регистрация: 28.11.2010 Сообщений: 21	если честно, то нет

28.12.2010, 20:38	#13
Pein95 Форумчанин Регистрация: 25.04.2010 Сообщений: 881	620252308 обращайся доведу до ума)