Синформатикой заполнить массив из 10 элементов случайными числами в интервале [0..99] и отсортировать его по убыванию последней цифры.

//pascalabc.net (версия 3.1, сборка 1210 от 29.03.2016) const n = 10; var a: array[1..n] of integer; i,j: integer; begin // заполним массив сл. числами   for i: =1 to n do begin       a[i]: =random(0,99); write(a[i]: 4);   end;   writeln; //сортировка массива по убыванию последней цифры.   for i : = 1 to n-1 do       for j : = 1 to n-i do           if (a[j] mod 10) > (a[j+1]mod 10) then           swap(a[j],a[j+1]);   writeln('отсортированный массив : ');   for i: =1 to n do write(a[i]: 4);     end. тестовое решение:   14  60  69    6  10  77  66  67  44  84 отсортированный массив :   60  10  14  44  84    6  66  77  67  69

var

i,n: integer;

a: array [1..100] of integer;

begin

readln(n);

for i: =1 to n do

begin

if i mod 2 =0 then a[i]: =i-3

else a[i]: =i+3;

writeln(a[i]);

end;

end.