Переведите из линейной записи в общепринятую...

Конус – это тело, образованное совокупностью всех лучей, исходящих из точки и пересекающих плоскость.

Точка, из которой лучи исходят, получила название вершины конуса. В случае, когда основанием конуса является многоугольник, он превращается в пирамиду.

Рассмотрим некоторые важные понятия.

Образующей конуса называется отрезок, который соединяет любую точку границы основания конуса, с его вершиной.

Высотой конуса является перпендикуляр, который опущен из вершины к основанию тела.

Конус бывает нескольких типов:

Прямой, если его основание – одна из таких фигур, как эллипс или круг. Обязательным условием является проецирование вершины конуса в центр основания.

Косой – у него центр фигуры, которая находится в основании, не совпадает с проекцией вершины на это самое основание.

Круговой – отталкиваясь от названия, понятно, что в его основании лежит круг.

Усеченный – область конуса, лежащая между основанием и сечением плоскости, которая параллельна основанию и пересекает данный конус.

Задача №1

var a:array[1..3, 1..4] of integer; 
i,j,min:integer; 
begin 
for i:=1 to 3 do 
for j:=1 to 4 do begin 
read(a[i,j]); 
if a[i,j]<0 then min:=a[i,j]; 
end; 
for i:=1 to 3 do 
for j:=1 to 4 do 
if (a[i,j]<0) and (a[i,j]<min) then min:=a[i,j]; 
writeln('Минимальное отрицательное число ',min); 
end.

Задача №2
var a:array[1..2, 1..5] of integer; 
i,j:integer; 
begin 
for i:=1 to 2 do 
for j:=1 to 5 do read(a[i,j]); 
for i:=1 to 2 do begin 
for j:=1 to 5 do 
write(a[i,j],' '); 
writeln; 
end; 
end. 

Задача №3
var a:array[1..3, 1..4] of integer; 
i,j:integer; 
begin 
for i:=1 to 3 do 
for j:=1 to 4 do read(a[i,j]); 
for i:=1 to 3 do 
for j:=1 to 4 do 
if a[i,j]=10 then writeln('Номер столбца — ',j,' Номер строки — ',i); 
end.