Технический форум - Программирование в Паскаль. Массивы

Цитата:

Сообщение от Марина97 (Сообщение 2412263)

Помогите ,пожалуйста! Буду благодарна ! Написать программу в Паскаль.

Ох, тоска...
Не успел семестр начаться, как понеслось: напишите мне, я скатаю и сдам, а сам (в данном случае, сама) учиться не желаю, пошла тусить.
Марина, поймите, идея выехать на форумах - прямой путь к отчислению. Мой Вам совет - беритесь за ум, пока не поздно! Впрочем, как знаете - Вам жить.

Код:

Const

 N_el=5;

 N_pr=10;



Var

 A:Array[1..N_pr,1..N_el] of Byte;

 C_min,C_max:Byte;

 i,j,Sum,I_min,I_max:Byte;



Begin

 Randomize;

 for i:=1 to N_pr do

  begin

   Sum:=0;

   for j:=1 to N_el do

    begin

     A[i,j]:=Random(100-Sum);

     Inc(Sum,A[i,j]);

    end;

  end;



 Writeln('            El_1    El_2    El_3    El_4    El_5');

 for i:=1 to N_pr do

  begin

   if i<10 then Write('Test_0',i) else Write('Test_',i);

   for j:=1 to N_el do write(A[i,j]:8);

   Writeln;

  end;



 Writeln;



 for j:=1 to N_el do

  begin

   I_min:=1;

   I_max:=1;

   C_max:=A[1,j];

   C_min:=A[1,j];

   for i:=2 to N_pr do

    begin

     if A[i,j]<C_min then

      begin

       C_min:=A[i,j];

       I_min:=i;

      end;

     if A[i,j]>C_max then

      begin

       C_max:=A[i,j];

       I_max:=i;

      end;

    end;

   Writeln('Element_',j,':   Minimal - test N ',I_min:2,',   Maximal - test N ',I_max:2);

  end;

 Readln

End.