ПАСКАЛь... экзамен в среду...2 задачи не решеныюпомогите кто сможет

[Baby2]

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

[AVer]

Задача №1:

Const N = 10;
Var A:Array[1..N] of integer;
    S,B,T:String;
    I,X,Y:Integer;
Begin
Randomize;
For I:=1 to N Do
A[I]:=Random(20)-10;
For I:=1 to N do
Write(A[I]:3);
WriteLn;
For I:=1 to N Do
If A[I] > 0 Then
If I mod 2 <> 0 Then
Begin
Str(A[I],B);
S:=S+B;
Str(I,B);
T:=T+B;
End;
For I:=1 to Length(T) Do
Begin
Val(T[I],X,X);
Val(S[Length(S)+1-I],Y,Y);
A[X]:=Y;
End;
For I:=1 to N do
Write(A[I]:3);
ReadLn;
End.

[Virtson]

Сообщение от AVer

Задача №1:

Const N = 10;
Begin
Str(A[I],B);
S:=S+B;
Str(I,B);
T:=T+B;
End;

For I:=1 to Length(T) Do
Begin
Val(T[I],X,X);
Val(S[Length(S)+1-I],Y,Y);
A[X]:=Y;
End;

как это работает ?

[Baby2]

в смысле?? как работает??

[Baby2]

спасибо огромное, ребята...просто нет слов. завтра покажу преподу если что-то не так вечером сюда зайду....вы здесь будете?

[AVer]

как это работает ?

В строку S загоняются значения подходящие под условие, а в T их порядковые номера. А потом посимвольно на места из строчки T ставятся значения из S в обратном порядке.

[AVer]

Задача №2. Упорядочивание по возрастанию сверху вниз.

Const N = 10;
Var A:Array[1..N,1..N] of integer;
    I,J,T,M:Integer;
    R:Boolean;
Begin
For I:=1 to N do
For J:=1 to N do
A[I,J]:=Random(20)-10;
For I:=1 to N do
Begin
For J:=1 to N do
Write(A[I,J]:4);
WriteLn;
End;
WriteLn;
For I:=1 to N do
M:=M+A[I,1];
For J:=2 to N do
Begin
T:=0;
For I:=1 to N do
T:=T+A[I,J];
If T > M Then M:=J;
End;
Repeat
R:=False;
For I:=1 to N-1 do
If A[I,M] > A[I+1,M] Then
Begin
J:=A[I,M];
A[I,M]:=A[I+1,M];
A[I+1,M]:=J;
R:=True;
End;
Until R = False;
For I:=1 to N do
Begin
For J:=1 to N do
Write(A[I,J]:4);
WriteLn;
End;
ReadLn;
End.

[Virtson]

посимвольно -
значит элементы могут быть 0..9 ?

в любом случае, респект -> AVer

[Baby2]

про вторую задачу не знаю........ условие такое,ничего не уточняется....... а ты завтра вечером будешь тут??? я думаю ты мне будешь очень нжен

[Baby2]

AVER, посмотри еще 1....знаю совсем обнаглела...... но если не сложно...
3. Найти наибольшее значение выражения Y:=sin (ABC),для всех целых A,B,C в диапазоне от 0 до 5