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

ljrerby · 22.10.2011, 23:51

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

Замечание:

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

Цитата:

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

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

Модератор.

Vladimir_S · 23.10.2011, 09:33

Цитата:

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

Задача 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 · 23.10.2011, 18:11

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

Vladimir_S · 23.10.2011, 18:38

Цитата:

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

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

Пжлст.

Цитата:

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

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

Удачи!

Опции темы
Версия для печати Отправить по электронной почте
Опции просмотра
Линейный вид Комбинированный вид Древовидный вид

22.10.2011, 23:51
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	Скорее всего проблема уже решена в одном из данных топиков Паскаль, три задачи на массивы Массивы Массивы Массивы. Массивы

23.10.2011, 18:11	#3 (permalink)
ljrerby Member Регистрация: 24.08.2010 Сообщений: 65 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	спс за задачу № 3. 1я и 2я задачи, будут решены лично

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070