Question

Написать программу, которая создает и заполняет массив из 10 элементов случайными целыми числами в диапазоне от 10 до 99.
Упорядочить массив по возрастанию последней цифры числа. вывести массив. На языке Паскаль. Кто знает выручайте ​

Answer 1

Ответ:

var

 arr: array[1..10] of integer;

 i, k, j: integer;

begin

 randomize;

 writeln('Массив: ');

 for i := 1 to 10 do arr[i] := random(10,99);

 for i := 1 to 10 do

   for k := 1 to 9 do

     if (arr[k] mod 10) > (arr[k + 1] mod 10) then begin

       j := arr[k];

       arr[k] := arr[k + 1];

       arr[k + 1] := j;

     end;

 for i := 1 to 10 do write(arr[i],' ');

end.