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

[ljrerby]

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

Задача 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

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

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

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

Модератор. [/mod2]

 

[Vladimir_S]

Задача 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.

 

[ljrerby]

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

 

[Vladimir_S]

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

Пжлст.

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

Удачи!