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

[Lizaa]

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

1. В одномерном массиве, состоящем из n вещественных элемен-
тов:
1) определите, есть ли в массиве хотя бы одно положительное
число, меньшее минимального четного элемента;
2) вычислите сумму элементов массива, расположенных между
последним и предпоследним нечетными элементами.
Преобразуйте массив таким образом, чтобы в первой его половине
располагались элементы по возрастанию, во второй – по убыванию.
2. Дана целочисленная квадратная матрица:
1) выполните сжатие матрицы, удалив из нее те столбцы, в кото-
рых количество отрицательных элементов совпадает с количеством
положительных;
2) определите количество строк, в которых расположены макси-
мальные элементы матрицы.

 

[Vladimir_S]

1. В одномерном массиве, состоящем из n вещественных элементов: ...

 

[Lizaa]

Какой дурдом то?

 

[Vladimir_S]

Какой дурдом то?

Н-да... Ну что же, объясню. Дурдом - это то место, в котором я скоро окажусь, в 128-й раз объясняя очевидное: существует множество так называемых языков программирования, возможно, Вы даже слышали такие слова: Паскаль, Си, Фортран, Ассемблер, Ява и несть им числа. Поэтому когда очередной уважаемый посетитель нашего форума выкладывает очередное задание, в очередной раз НЕ указав язык программирования, то справиться с таковым под силу только телепатам, а у нас, увы... (см. второй смайлик). Впрочем, вероятно, дочитать ответ до третьего смайлика (с рупором), где ясно указана суть вопроса, Вам оказалось не под силу. Сочувствую.

 

[Vladimir_S]

1. В одномерном массиве, состоящем из n вещественных элементов: 1) определите, есть ли в массиве хотя бы одно положительное число, меньшее минимального четного элемента; 2) вычислите сумму элементов массива, расположенных между последним и предпоследним нечетными элементами.

И по сути задания: прежде всего, оно сформулировано абсолютно математически безграмотно: дело в том, что вещественные (они же действительные) числа атрибутом четности не обладают, это - прерогатива исключительно целых чисел. Если Вам "так дали", то можете это сообщить Вашим горе-преподавателям.

 

[Lizaa]

Мне нужно решить программу в Паскале, а то что она так написана я в этом не виновата

 

[Vladimir_S]

1. В одномерном массиве, состоящем из n вещественных элементов:
1) определите, есть ли в массиве хотя бы одно положительное число, меньшее минимального четного элемента;
2) вычислите сумму элементов массива, расположенных между последним и предпоследним нечетными элементами. Преобразуйте массив таким образом, чтобы в первой его половине располагались элементы по возрастанию, во второй – по убыванию.

Const
 N=40; { for example; change if you want to }
Var
 A:Array [1..N] of Integer;
 b:Boolean;
 D,Sum:Integer;
 i,j,I_min_even,I1_odd,I2_odd:Byte;
Begin
 Randomize;
 Writeln('Initial array:');
 I_min_even:=1;
 For i:=1 to N do
  begin
   A[i]:=-9+Random(109);
   Write(A[i]:4);
   If ((A[i] mod 2)=0) and (A[i]<A[I_min_even]) then I_min_even:=i;
  end;
 Writeln;
 Writeln;
 Writeln('Minimal even element is A[',I_min_even,']= ',A[I_min_even]);
 Writeln;
 b:=false;
 i:=0;
 Repeat
  Inc(i);
  If (A[i]>0) and (A[i]<A[I_min_even]) then b:=true;
 Until b or (i=N);
 If Not(b) then
  Writeln('No positive elements less then ',A[I_min_even])
 else
  Writeln('Yes, A[',i:2,']= ',A[i],' is less then ',A[I_min_even]);
 Writeln;
 Sum:=0;
 I2_odd:=N+1;
 Repeat
  Dec(I2_odd);
 Until (A[I2_odd] mod 2)<>0;
 I1_odd:=I2_odd;
 Repeat
  Dec(I1_odd);
 Until (A[I1_odd] mod 2)<>0;
 For i:=I1_odd+1 to I2_odd-1 do Inc(Sum,A[i]);
 Writeln('The sum of elements between A[',I1_odd:2,'] and A[',I2_odd:2,'] is ',Sum);
 Writeln;
 Writeln('Ordered array:');
 For i:=1 to (N div 2)-1 do
  For j:=1 to (N div 2)-i do
   If A[j]>A[j+1] then
    begin
     D:=A[j];
     A[j]:=A[j+1];
     A[j+1]:=D;
    end;
 For i:=(N div 2)+1 to N-1 do
  For j:=(N div 2)+1 to N+(N div 2)-i do
   If A[j]<A[j+1] then
    begin
     D:=A[j];
     A[j]:=A[j+1];
     A[j+1]:=D;
    end;
 For i:=1 to N do Write(A[i]:4);
 Readln
End.

 

[Vladimir_S]

2. Дана целочисленная квадратная матрица:
1) выполните сжатие матрицы, удалив из нее те столбцы, в которых количество отрицательных элементов совпадает с количеством положительных;
2) определите количество строк, в которых расположены максимальные элементы матрицы.

Const
 N0=10; { for example; change if you want to }
Var
 A:Array [1..N0,1..N0] of Integer;
 Max:Integer;
 i,j,p,M,N,Pos,Neg,Num:Byte;
 b:Boolean;
Begin
 M:=N0;
 N:=N0;
 Randomize;
 Writeln('Initial matrix:');
 For i:=1 to M do
  begin
   For j:=1 to N do
    begin
     A[i,j]:=-99+Random(199);
     Write(A[i,j]:4);
    end;
   Writeln;
  end;
 For j:=1 to N do
  begin
   Pos:=0;
   Neg:=0;
   For i:=1 to M do
    begin
     if A[i,j]>0 then Inc(Pos);
     if A[i,j]<0 then Inc(Neg);
    end;
   If Pos=Neg then
    begin
     for i:=1 to M do
      for p:=j+1 to N do
       A[i,p-1]:=A[i,p];
     Dec(N);
    end;
  end;
 Writeln('Compressed matrix:');
 For i:=1 to M do
  begin
   For j:=1 to N do
    Write(A[i,j]:4);
   Writeln;
  end;
 Writeln;
 Max:=-200;
 Num:=0;
 For i:=1 to M do
  For j:=1 to N do
   If A[i,j]>Max then Max:=A[i,j];
 For i:=1 to M do
  begin
   b:=false;
   j:=0;
   Repeat
    Inc(j);
    If A[i,j]=Max then b:=true;
   Until b or (j=N);
   If b then Inc(Num);
  end;
 Writeln('Number of lines, containing maximal element = ',Max,', is ',Num);
 Readln
End.

 

[Lizaa]

Огромное спасибо!!

 

[Vladimir_S]

Огромное спасибо!!

Да пожалуйста, вот только единственно, я не уверен, что правильно понял задания - уж больно бестолково сформулированы. Особенно второй пункт второй задачи. О каких максимальнЫХ элементАХ матрицы идет речь? Я понял так, что нашли максимальный элемент и определили, в скольких строках он встречается, но я совсем не уверен, что автор задачи имел в виду то же.
Ладно, сообщите, если что не так - поправим.

 

[Lizaa]

Еще раз спасибо! Если что то не то я сообщу)