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

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

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

- - Три задачи на массивы (http://www.tehnari.ru/f41/t58834/)

Три задачи на массивы

Задача 1.
Заполнить массив из 10 элементов случайными числами в интервале [-10..10] и выполнить инверсию отдельно для 1-ой и 2-ой половин массива.
Пример:
Исходный массив:
4 -5 3 10 -4 -6 8 -10 1 0
Результат:
-4 10 3 -5 4 0 1 -10 8 -6

Задача 2.
Заполнить массив из 10 элементов случайными числами в интервале [-10..10] и выполнить циклический сдвиг ВПРАВО.
Пример:
Исходный массив:
4 -5 3 10 -4 -6 8 -10 1 0
Результат:
0 4 -5 3 10 -4 -6 8 -10 1

Задача 3.
Заполнить массив из 10 элементов случайными числами в интервале [0..100] и отсортировать его по последней цифре.
Пример:
Исходный массив:
14 25 13 30 76 58 32 11 41 97
Результат:
30 11 41 32 13 14 25 76 97 58

Замечание:

Так. Прежде всего - не ленимся заглянуть в Правила форума, каковые строго соблюдаем. В них, помимо прочего, сказано:

Цитата:

Создавайте темы с осмысленным названием, топики с заглавием ПОМОГИТЕ!!!!!!!!!! будут удаляться.

Тема переименована.

Модератор.

Цитата:

Сообщение от ljrerby (Сообщение 605553)

Задача 3. Заполнить массив из 10 элементов случайными числами в интервале [0..100] и отсортировать его по последней цифре. Пример: Исходный массив: 14 25 13 30 76 58 32 11 41 97 Результат: 30 11 41 32 13 14 25 76 97 58

Ладно, с этой - помогу. Остальные две задачки уровня яслей для детей с замедленным умственным развитием соблаговолите решить самостоятельно.

Код:

VAR

 A:Array[1..10] of Byte;

 i,j,d:Byte;

BEGIN

 Randomize;

 For i:=1 to 10 do

  begin

   A[i]:=Random(101);

   Write(A[i]:4);

  end;

 Writeln;

 Writeln;

 For j:=1 to 9 do

  For i:=1 to 10-j do

   If (A[i] mod 10)>(A[i+1] mod 10) then

    begin

     d:=A[i];

     A[i]:=A[i+1];

     A[i+1]:=d;

    end;

 For i:=1 to 10 do

  Write(A[i]:4);

 Readln;

END.

спс за задачу № 3.
1я и 2я задачи, будут решены лично

Цитата:

Сообщение от ljrerby (Сообщение 605869)

спс за задачу № 3.

Пжлст.

Цитата:

Сообщение от ljrerby (Сообщение 605869)

1я и 2я задачи, будут решены лично

Удачи!