Используя библиографическую базу данных ИНИОН, найдите информацию о героине романа А.С. Пушкина «Евгений Онегин» Татьяне Лариной. Тип поискового запроса — по простому вхождению. Порядок выполнения запроса сопровождайте выполнением скриншотов экрана, результат отправьте на адрес электронной почты преподавателя.

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

алг

нач

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

сместиться на вектор (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.