Цитата:
Сообщение от Марина97
Помогите ,пожалуйста! Буду благодарна ! Написать программу в Паскаль.
|
Ох, тоска...
Не успел семестр начаться, как понеслось: напишите мне, я скатаю и сдам, а сам (в данном случае, сама) учиться не желаю, пошла тусить.
Марина, поймите, идея выехать на форумах - прямой путь к отчислению. Мой Вам совет - беритесь за ум, пока не поздно! Впрочем, как знаете - Вам жить.
Код:
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.