Заполнить массив из 10 элементов случайными числами и отсортировать его по последней цифре

@FARAON166 · Регистрация: 26.10.2010

Author24 — интернет-сервис помощи студентам

Пожалуйста, помогите решить вот эту задачу.

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

Так же попрошу писать не сильно заумным кодом) так как это всё нужно для сестры которая учится в 9 классе

Добавлено через 20 часов 30 минут
ап ( 5 символов )

14.11.2013, 15:06

uses crt;
var a:array[1..10] of Integer;
i,j,k:Integer;
procedure rep; var k:Integer; begin k:=a[ i];a[ i]:=a[j];a[j]:=k; end;
begin
randomize;clrscr;
for i:=1 to 10 do a[ i]:=random(101);
for i:=1 to 4 do for j:=i+1 to 5 do if a[ i] > a[ j] then rep;
for i:=5 to 9 do for j:=i+1 to 10 do if a[ i] < a[ j] then rep;
for i:=1 to 10 do write(a[ i],' ');
end.
Но это заумно даже для моего 10 класса.

@FARAON166 0 / 0 / 0 Регистрация: 26.10.2010 Сообщений: 33
		1
	Заполнить массив из 10 элементов случайными числами и отсортировать его по последней цифре 18.11.2012, 16:17. Показов 5766. Ответов 1 Метки нет (Все метки) Пожалуйста, помогите решить вот эту задачу. Заполнить массив из 10 элементов случайными числами в интервале [0..100] и отсортировать его по последней цифре. Пример: Исходный массив: 14 25 13 30 76 58 32 11 41 97 Результат: 30 11 41 32 13 14 25 76 97 58 Так же попрошу писать не сильно заумным кодом) так как это всё нужно для сестры которая учится в 9 классе Добавлено через 20 часов 30 минут ап ( 5 символов ) 0

Sirius Black
	14.11.2013, 15:06	2
	uses crt; var a:array[1..10] of Integer; i,j,k:Integer; procedure rep; var k:Integer; begin k:=a[ i];a[ i]:=a[j];a[j]:=k; end; begin randomize;clrscr; for i:=1 to 10 do a[ i]:=random(101); for i:=1 to 4 do for j:=i+1 to 5 do if a[ i] > a[ j] then rep; for i:=5 to 9 do for j:=i+1 to 10 do if a[ i] < a[ j] then rep; for i:=1 to 10 do write(a[ i],' '); end. Но это заумно даже для моего 10 класса.