No5 (0,6), (2,8), (3,11), (6,13), (10,14), (14,17), (16,16), (20,16), (22,17), (24,15), (24,11), (21,9), (20,11), (20,7), (19,6), (16,6), (16,7), (18,7), (19,8), (17,10), (16,10), (15,11), (14,9), (11,11), (10,14). (18,6), (18,4), (16,0), (14,2), (15,4), (15,5), (14,5), (14,0), (11,0), (11,6), (6,6), (7,2), (6,2), (6,1), (3,1), (4,5), (3,8), (0,6). Рисунок по кординатам

Program n1;
Uses CRT;
Const n=15;
Var A: array[1..n] of integer; B: array[1..n] of integer;
i,k,max: integer;
begin
randomize;
clrscr;
Writeln('ishodny massiv');
For i:=1 to n do
begin
a[i]:=random(100);
a[i]:=a[i]-50;
write(a[i]:4);
end;
writeln;
writeln('polychenny massiv');
max:=0;
For i:=1 to n do
begin
b[i]:=-a[i];
write(b[i]:4);
If a[i]=b[i] then k:=k+1;
If (b[i]>0)and(b[i]>max) then max:=b[i];
If (b[i]<0)and(-b[i]>max) then max:=-b[i];
end;
writeln;
Writeln('Kolychestvo neizmenyvshihsa elementov=',k,', samyi bolshoy po modyly element raven =',max);
writeln
end.

Город - Население(1, 2 3 миллиона человек), Размер( 1000, 10000, 1000000,километров в квадрате), Расстояние до столицы (100, 1000, 1500 км)

Автомобиль - Пробег(10000, 50000, 100000км), максимальная скорость(80, 200, 300км/ч), год выпуска(1950, 2005, 2014г)

Компьютер - тактовая частота(1, 2, 3 Ггц), Объем оперативной памяти(4, 16, 64 ГБ), Объем памяти жесткого диска( 300, 600, 2000 ГБ)

Клавиша клавиатуры - цвет( Черный, белый, серый), Являеться ли клавиша горячей (да, нет, только в сочетании с другими), количество различных символов, которые можно набрать с одной клавиши(0, 1, 2, 3) 

Классная доска - Поверхность для письма(Металл, дерево, глянец), размер(2,3,4 метра в квадрате), количество возможных положений доски(1,2,3,4)