Задания по Турбо Паскаль

[CHaTTeR]

Сосед пришёл в слезах, и ему нужна помощь (он первокурсник), помогите решить задачки

1- В массиве из 20 элементов найти наибольший элемент и поменять его местами с первым элементом.

2- Дан массив чисел, содержащий 20 элементов. Записать сначала все отрицательные элементы, затем нули и положительные элементы, сохраняя порядок следования во второй массив.

Если можно полным кодом всё написать.

Заранее спасибо

[_-Re@l-_]

Ну как-то так
1.

Var
     A:array[1..20] of Integer;
     T,I,N:Integer;
     Max:Integer;
Begin
        For I:=1 To 20 Do
        Begin
                Write('A[',i,']=');
                Readln(A[i]);
        End;
        Max:=A[1];
        N:=1;
        For I:=2 To 20 Do
        Begin
        If A[i]>Max Then 
        Begin
               Max:=A[i];
               N:=I;
        End;
        End;
        T:=A[N];
        A[N]:=A[1];
        A[1]:=T;
        For I:=1 To 20 Do
        Write(A[i],' ');
End.

2.

Var
     A:array[1..20] of Integer;
     B:array[1..20] of Integer;
     I,N:Integer;
Begin
        For I:=1 To 20 Do
        Begin
                Write('A[',i,']=');
                Readln(A[i]);
        End;
        N:=0;
        For I:=1 To 20 Do
        Begin
                If A[i]<0 Then 
                Begin
                        N:=N+1;
                        B[N]:=A[i];
                End;
        End;
        For I:=1 To 20 Do
        Begin
                If A[i] = 0 Then
                Begin
                        N:=N+1;
                        B[N]:=A[i];
                End;
        End;
        For I:=1 To 20 Do
        Begin
                If A[i]>0 Then
                Begin
                        N:=N+1;
                        B[N]:=A[i];
                End;
        End;
        For I:=1 To 20 Do
        Write(A[i],' ');
End.

Возможно, вторая задача решена не очень рациональна, но зато правильно.

[Базиля]

1)

var a:array[1..20] of integer;
max,i,k,p:integer;
begin

for i:=1 to 20 do
begin
write('a[',i,']=');
readln(a[i]);
end;
max:=a[1];
for i:=1 to 20 do
if a[i]>max then
begin
max:=a[i];
k:=i;
end;
p:=a[1];
a[1]:=max;
a[k]:=p;
for i:=1 to 20 do
write(a[i],' ');
end.

2)

var a,b:array[1..20] of integer;
max,i,k,p:integer;
begin
writeln('вводите элементы массива');
for i:=1 to 20 do
begin
write('a[',i,']=');
readln(a[i]);
end;
p:=1;
for i:=1 to 20 do
if a[i]<0 then
begin
b[p]:=a[i];
inc(p);
end;
for i:=1 to 20 do
if a[i]=0 then
begin
b[p]:=a[i];
inc(p);
end;
for i:=1 to 20 do
if a[i]>0 then
begin
b[p]:=a[i];
inc(p);
end;
for i:=1 to 20 do
write(b[i],' ');
end.

[CHaTTeR]

А можно ещё выложить 18 заданий, уж просто очень охото помочь, они все тоже на массив??

From artemavd: Чтобы потом придти к "соседу" и сказать: "Смотри, я на халяву получил решение задач и теперь я мега-программист!"

[Базиля]

CHaTTeR
Выкладывай, могу решить все 18.Только это уже будет не за спасибо, т.к. там уже чисто время нужно будет)
P.S. В общем если заинтересовало прошу в личку вашу аську

[_-Re@l-_]

А можно ещё выложить 18 заданий, уж просто очень охото помочь, они все тоже на массив??

Выкладывай-решу за просто так.Будет мне дополнительной тренировкой перед грядущей олимпиадой по информатике
Решения выложу здесь, в виде архива.

[CHaTTeR]

ок спс вам..

3 - В массиве из 10 элементов найти наименьший элемент и поменять его местами с последним элементом массива.
4 - Дан массив из 15 элементов. Записать сначала все отрицательные элементы, затем все положительные элементы во втрой массив. Нули не записывать.
5 - В массиве из 15 элементов найти наибольший элемент и поменять его местами с последним элементом.
6 - Дан массив из 20 элементов. Записать во второй ммассив сначала все положительные, затем отрицательные элементы. Нули не записывать.
7 - В массиве из 25 элементов найти наименьший элемент и поменять его местами с первым элементом.
8 - Дан массив из 10 элементов. Записать во второй массив сначала все полодительные элементы, затем нули и в конце - отрицательные элементы.
9 - В массиве из 18 элементов найти сумму всех положительных элементов.
10 - Дан массив из 30 элементов. Найти порядковый номер первого отрицательного элемента.
11 - В массиве из 22 элементов найти количество отрицательных элементов.
12 - Дан массив из 25 элементов. Найти сумму элементов, расположенных до первого нуля.
13 - В массиве из 14 элементов найти количество элементов, равных первому.
14 - Дан массив из 35 элементов. Найти порядковый номер первого элемента, кратного 5.
15 - В массиве из 23 элементов найти сумму элементов, отличных от последнего элемента.
16 - Дан массив из 40 элементов. Найти количество элементов, меньших первого элемента.
17 - В массиве из 16 эжлементов найти среднее арифметическое положительных элементов.
18 - Дан массив из 25 элементов. Найти сумму элементов, больших последнего элемента.
19 - В массиве из 21 элемента найти сумму четных элементов.
20 - Дан массив из 35 элементов. Найти номер последнего элемента, кратного 3.

Буду очень благодарен, и человеческое спасибо)

[Базиля]

_-Re@l-
И такие задачки вас как-то натренируют к олимпиаде
Что это за олимпиада то такая, интересно аж стало

[ROMA2PVT]

CHaTTeR уже давно б поиском или гуглом воспользовались да и радывались бы.

[Don Karleone]

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

А можно ещё выложить 18 заданий, уж просто очень охото помочь, они все тоже на массив??

а сессию за вас не сдать???