Одномерный массив

[Natasha84]

Одномерный массив

1. Одномерный массив А длиной N<=25 заполнить случайными числами из диапазона [–18..10]. Составить программу определения:
• первого положительного элемента массива;
• максимального среди четных элементов массива;
• количества отрицательных элементов массива значения, которых лежат в диапазоне [y1..y2].
2.Дан одномерный массив. Переместить нечетные элементы в начало, сдвинув остальные элементы вправо.
3.Известно количество голосов, поданных за каждого из 10 кандидатов на пост мэра Челябинска. Выяснить, избран ли мэр, если для избрания требуется набрать более 50 % голосов “за” или какие два кандидата вошли во второй тур (если никто из кандидатов не набрал 50 % голосов).

 

[Vladimir_S]

И Вам здравствуйте. На Фортране прикажете, или PL сойдёт? Впрочем, в политические дела Челябинска лучше не встревать - народ там суровый...

 

[Natasha84]

Хотелось бы в Паскале

 

[Vladimir_S]

1. Одномерный массив А длиной N<=25 заполнить случайными числами из диапазона [–18..10]. Составить программу определения:
• первого положительного элемента массива;
• максимального среди четных элементов массива;
• количества отрицательных элементов массива значения, которых лежат в диапазоне [y1..y2].

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.

2.Дан одномерный массив. Переместить нечетные элементы в начало, сдвинув остальные элементы вправо.

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.

3.Известно количество голосов, поданных за каждого из 10 кандидатов на пост мэра Челябинска. Выяснить, избран ли мэр, если для избрания требуется набрать более 50 % голосов “за” или какие два кандидата вошли во второй тур (если никто из кандидатов не набрал 50 % голосов).

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.

 

[Natasha84]

Спасибо большое)

 

[Vladimir_S]

Koks, прекратите лазать по чужим темам и цепляться к ним! Для Ваших задач создана отдельная тема http://www.tehnari.ru/f41/t61801/#post641727 , туда и пишите. А эта ТЕМА ЗАКРЫТА.