Напиши запрос (база данных ms access): записи, в которых названия стран заканчиваются на "нд". запрос:

использовать Чертежник

алг

нач

опустить перо

сместиться на вектор (0,10)

сместиться на вектор (4,0)

сместиться на вектор (1,-1)

сместиться на вектор (0,-2)

сместиться на вектор (-3,-2)

сместиться на вектор (3,-2)

сместиться на вектор (0,-2)

сместиться на вектор (-1,-1)

сместиться на вектор (-4,0)

поднять перо

сместиться на вектор (6,0)

опустить перо

сместиться на вектор (4,10)

сместиться на вектор (4,-10)

поднять перо

сместиться на вектор (-2,5)

опустить перо

сместиться на вектор (-4,0)

поднять перо

сместиться на вектор (7,-5)

опустить перо

сместиться на вектор (0,2)

сместиться на вектор (8,0)

сместиться на вектор (0,-2)

поднять перо

сместиться на вектор (-2,2)

опустить перо

сместиться на вектор (0,8)

сместиться на вектор (-4,0)

сместиться на вектор (0,-8)

поднять перо

сместиться на вектор (7,-2)

опустить перо

сместиться на вектор (0,10)

поднять перо

сместиться на вектор (0,-10)

опустить перо

сместиться на вектор (5,10)

сместиться на вектор (0,-10)

поднять перо

сместиться на вектор (1,0)

опустить перо

сместиться на вектор (0,10)

сместиться на вектор (3,-7)

сместиться на вектор (3,7)

сместиться на вектор (0,-10)

поднять перо

кон

uses crt;

const n=10;

var a: array[1..n] of integer;          

 i,j,k: byte; c: integer;

begin  

randomize;  

clrscr;  

writeln('исходный массив: ');  

for i:=1 to n do   begin    

a[i]:=random(19)-9;  

 write(a[i]:3);   end;  writeln;

 k:=0;  for i:=1 to n-1 do   f

or j:=i+1 to n do    if a[i]>a[j] then     begin      

c:=a[i];      

a[i]:=a[j];    

 a[j]:=c;      

inc(k);    

end;  

writeln('результат сортировки: ');

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

writeln;  

writeln('кол-во перестановок = ',k);

end.