|
Главная | Правила | Регистрация | Дневники | Справка | Пользователи | Календарь | Поиск | Сообщения за день | Все разделы прочитаны |
|
Опции темы | Опции просмотра |
25.04.2011, 04:42 | #1 (permalink) |
Member
Регистрация: 11.04.2011
Сообщений: 14
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Одномерный массив в Паскале
1) количество элементов массива, лежащих в диапазоне от А до В; 2) сумму элементов массива, расположенных после максимального элемента. Упорядочить элементы массива по убыванию модулей |
25.04.2011, 04:42 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Обсуждения имеют общий смысл с вашей темой, прочтите их Одномерный массив в Delphi Одномерный массив |
25.04.2011, 15:29 | #3 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Вообще-то мы тут не очень любим связываться с выполнением элементарных рутинных упражнений за лентяев. А самостоятельно - совсем никак? Вот помочь, проконсультировать, исправить ошибки - это с удовольствием.
|
25.04.2011, 21:03 | #5 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Ладно, чего-то я сегодня добрый:
Код:
CONST N=10; VAR m:ARRAY[1..N] of Real; i,j,Imax,Num:byte; d,A,B,Max,S:Real; BEGIN Randomize; Max:=-100; Num:=0; S:=0; For i:=1 to N do begin m[i]:=20*Random-10; Write(m[i]:8:3); If m[i]>Max then begin Max:=m[i]; Imax:=i; end; end; writeln; Write('A= '); ReadLn(A); Write('B= '); ReadLn(B); For i:=1 to N do If (m[i]>A) and (m[i]<B) then Inc(Num); WriteLn('Number of elements between A and B is ',Num); WriteLn('Maximum is the element number ',Imax,' equal to ',m[Imax]:8:3); For i:=Imax+1 to N do S:=S+m[i]; WriteLn('Sum of elements from ',Imax+1, ' to ',N,' is ',S:10:3); For i:=1 to N-1 do For j:=1 to N-i do If ABS(m[j])<ABS(m[j+1]) then begin d:=m[j]; m[j]:=m[j+1]; m[j+1]:=d; end; For i:=1 to N do Write(m[i]:8:3); readln; END. |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
16.03.2012, 10:25 | #7 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Joker131295, у нас не принято цепляться к чужим темам! Ваше сообщение перенесено в отдельную тему. Эта ТЕМА ЗАКРЫТА.
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Опции темы | |
Опции просмотра | |
|
|