Сгенерировать двумерный массив
вещественных чисел, размером 10х10.
Вывести массив на экран. Найти наименьший
положительный элемент главной диагонали
и разделить его на 8. Паскаль.
Очень нужна

Будет нарисовано что то типа заглавной буквы "Д" но только у неё правая нижняя палочка не оттуда растёт немного.

Подробнее- смотри скрин внизу (жирная линия на скрине- это так отображается рисующее перо Чертёжника, его в принципе можно увести в другое место в конце алгоритма, чтобы оно там не мешалось, только предварительно подняв перо).

Вот ваша программа (в полном нормальном виде для системы Кумир, без кучи всяких мелких ошибок типа точки вместо запятой и больших букв там где не надо):

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

алг

нач

сместиться в точку (1,1)

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

сместиться в точку (1,2)

сместиться в точку (5,2)

поднять перо

сместиться в точку (5,1)

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

сместиться в точку (4,2)

сместиться в точку (4,5)

сместиться в точку (3,5)

сместиться в точку (2,4)

сместиться в точку (2,2)

кон

А вот я поправил программу, чтобы она рисовала правильную букву "Д",  и ещё после уводила перо в сторону, чтобы оно не мешало смотреть рисунок. Результат работы этой программы- смотри на втором скрине.

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

алг

нач

сместиться в точку (1,1)

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

сместиться в точку (1,2)

сместиться в точку (5,2)

сместиться в точку (5,1)

поднять перо

сместиться в точку (4,2)

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

сместиться в точку (4,5)

сместиться в точку (3,5)

сместиться в точку (2,4)

сместиться в точку (2,2)

поднять перо

сместиться в точку (7,2)

кон

Если элементы массива идут по возрастанию, то вот так

program wstawka;
uses crt;
const min=1;
max=20;
type zona=min..max;
massiw=array[zona] of integer;
var mas:massiw;
i,j:zona;
a,N,M:integer;
T:boolean;
BEGIN randomize;
clrscr; N:=random(20);
writeln('4ucJlo N = ',N);
 M:=random(20); Writeln('4ucJlo M = ',M);
for i:=min to max-2 do
begin
mas[i+1]:=mas[i]+random(5);
write(mas[i],' ');
end;
for i:=min to max-2 do
if (mas[i]>N) and (t=false) then
begin
t:=true;
a:=mas[i];
mas[i]:=N;
for j:=i+1 to max do
begin
N:=mas[j];
mas[j]:=a;
a:=N;
end;
end;
for i:=min to max-1 do
if (mas[i]>M) and (t=true) then
begin
t:=false;
a:=mas[i];
mas[i]:=M;
for j:=i+1 to max do
begin
M:=mas[j];
mas[j]:=a;
a:=M;
end;
end;
writeln;
for i:=min to max do
write(mas[i],' ');
readkey;
END.