видимо речь идет о кодировании графических изображений векторного типа.
Это учебник Босовой, 6 класс. итак есть координатная плоскость с осями - ОХ (по горизонтали) и ОУ по вертикале. Читаем условие:
например:
Установить 60,20 одна клеточка на рисунке принимается за 10. Поэтому откладываем на оси ОХ 6 клеточек, на оси ОУ 2 клеточки. Находим точку на пересечении. Это и будет Начальной точкой рисунка. А теперь просто. Рисуем линии от этой начальной точки. например линия (20,60). От точки которую мы только что нашли откладываем по оси Х 20 оси У 60. Рисуем точку и соединяем эти 2 найденных точки прямой линией. Дальше идет рисунок в такой же последовательности но уже исходной считается 2 точка.
Не знаю, понятно ли объяснила.
var a:array [1..n,1..m] of integer;
i,j,min,imin,jmin:integer;
begin
Randomize;
Writeln('Исходный массив:');
for i:=1 to n do
begin
for j:=1 to m do begin
a[i,j]:=random(21)-10;
write(a[i,j]:6);
end;
writeln;
end;
min:=a[1,1]; imin:=1;jmin:=1;
for i:=1 to n do
for j:=1 to m do
if a[i,j]<min then
begin min:=a[i,j]; imin:=i; jmin:=j; end;
writeln('min=a[',imin,',',jmin,']=',min);
end.
Пример:
Исходный массив:
5 8 2 -5 -4
1 -10 9 1 -4
8 2 -6 -4 -4
8 7 3 2 2
min=a[2,2]=-10