18.11.2011, 19:43 | #1 (permalink) |
Banned
Регистрация: 18.11.2011
Сообщений: 11
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Одномерный массив
• первого положительного элемента массива; • максимального среди четных элементов массива; • количества отрицательных элементов массива значения, которых лежат в диапазоне [y1..y2]. 2.Дан одномерный массив. Переместить нечетные элементы в начало, сдвинув остальные элементы вправо. 3.Известно количество голосов, поданных за каждого из 10 кандидатов на пост мэра Челябинска. Выяснить, избран ли мэр, если для избрания требуется набрать более 50 % голосов “за” или какие два кандидата вошли во второй тур (если никто из кандидатов не набрал 50 % голосов). |
18.11.2011, 19:43 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Поищите решение проблемы в аналогичных обсуждениях Одномерный массив в Паскале Одномерный массив в Delphi Одномерный массив Одномерный массив Одномерный массив. Рассчитать сопротивление сложного соединения. Массив в VBA |
18.11.2011, 20:00 | #2 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
И Вам здравствуйте. На Фортране прикажете, или PL сойдёт? Впрочем, в политические дела Челябинска лучше не встревать - народ там суровый...
|
19.11.2011, 12:48 | #4 (permalink) | |||
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
Код:
CONST N=20; y1=-12; y2=-4; VAR A:Array[1..N] of Integer; i,Mx,N_neg:Integer; BEGIN Randomize; For i:=1 to N do begin A[i]:=-18+Random(29); Write(A[i]:4); end; Writeln; Write('First positive element is '); i:=0; Repeat Inc(i); Until A[i]>0; Writeln(A[i]); Writeln; Mx:=-20; For i:=1 to N do If ((A[i] mod 2)=0) and (A[i]>Mx) then Mx:=A[i]; Writeln('Maximal even is ',Mx); Writeln; N_neg:=0; For i:=1 to N do If (A[i]>=y1) and (A[i]<=y2) then Inc(N_neg); Writeln('Number of elements between ',y1,' and ',y2,' is ',N_neg); Writeln; Readln END. Цитата:
Код:
CONST N=20; VAR A,Odd,Even:Array[1..N] of Integer; i,N_odd,N_even:Integer; BEGIN N_odd:=0; N_even:=0; Randomize; For i:=1 to N do begin A[i]:=Random(100); Write(A[i]:4); end; Writeln; For i:=1 to N do If (A[i] mod 2)<>0 then begin Inc(N_odd); Odd[N_odd]:=A[i]; end else begin Inc(N_even); Even[N_even]:=A[i]; end; For i:=1 to N_odd do A[i]:=Odd[i]; For i:=1 to N_even do A[N_odd+i]:=Even[i]; For i:=1 to N do Write(A[i]:4); Readln END. Цитата:
Код:
CONST Fam:Array[1..10] of String=('Potkin','Sumin','Solov"ev','Tarasov', 'Jurevich','Davydov','Putin','Zyrinovskiy','Zuganov','Matvijenko'); VAR Vote:Array[1..10] of Longint; i,j,Im1,Im2:Integer; Mx1,Mx2,N_elect,Sum:LongInt; BEGIN N_elect:=500000; Sum:=0; Randomize; For i:=1 to 9 do begin Vote[i]:=Random(N_elect); N_elect:=N_elect-Vote[i]; Inc(Sum,Vote[i]); end; Vote[10]:=500000-Sum; Writeln('Results:'); For i:=1 to 10 do begin Write(Fam[i]); for j:=Length(Fam[i]) to 20 do write(' '); Writeln(Vote[i]:6); end; Mx1:=0; For i:=1 to 10 do If Vote[i]>Mx1 then begin Mx1:=Vote[i]; Im1:=i; end; Mx2:=0; For i:=1 to 10 do If (Vote[i]>Mx2) and (Vote[i]<Mx1) then begin Mx2:=Vote[i]; Im2:=i; end; If Mx1>250000 then Writeln('Chelyabinsk has the Mayor, and his surname is '+Fam[Im1]+'!') else Writeln('There would be the 2-nd round with '+Fam[Im1]+' and '+Fam[Im2]+'.'); Readln END. |
|||
19.11.2011, 22:05 | #5 (permalink) |
Banned
Регистрация: 18.11.2011
Сообщений: 11
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Спасибо большое)
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
26.12.2011, 21:15 | #6 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Koks, прекратите лазать по чужим темам и цепляться к ним! Для Ваших задач создана отдельная тема Паскаль. Задачи на массивы , туда и пишите. А эта ТЕМА ЗАКРЫТА.
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|