Question

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

Answer 1

 

  const  

n=10;

var

  a:array[1..n]ofinteger;

  i,tmp:integer;

begin  

randomize;  

for i:=1to10do

  begin  

  a[i]:=random(21)-10;    

Write(A[i]:3);

  end;

  writeln;

  for i:=2to n div2do

  begin  

  tmp:=a[i];  

  a[i]:=a[10-i+2];

    a[10-i+2]:=tmp;

  end;  

for i:=1to n dowrite(a[i]:3);  

readln;

end.

Answer 2

uses crt;
var a:array[1..10] of Integer;
i,j: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 9 do for j:=i+1 to 10 do if a[ i] mod 10 > a[ j] mod 10 then rep;
for i:=1 to 10 do write(a[ i],' ');
end.