Технический форум - Одномерный массив

Технический форум (http://www.tehnari.ru/)

- Помощь студентам (http://www.tehnari.ru/f41/)

- - Одномерный массив (http://www.tehnari.ru/f41/t74288/)

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

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

Цитата:

Сообщение от Lizaa (Сообщение 741275)

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

Вложение 81580 Вложение 81581 Вложение 81582

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

Цитата:

Сообщение от Lizaa (Сообщение 741597)

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

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

Цитата:

Сообщение от Lizaa (Сообщение 741275)

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

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

Цитата:

Сообщение от Lizaa (Сообщение 741275)

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.

Цитата:

Сообщение от Lizaa (Сообщение 741275)

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 (Сообщение 742866)

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

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