2. Составьте программу рисования прямоугольного треугольника катеты которого совпадают с осями координат. Медиана
проведенная прямого угла, заканчивается в точке
координатами (2; 2) и является так же и высотой.
исования фигуры, изображенной
​

Первая

Program n1;
Uses CRT;
Var a,b,c,k: integer;
begin
Writeln('Vvedite a,b,c');
Readln(a,b,c);
If (a=b)and(b=c) then begin k:=1; writeln('Ravnostoronnij') end else
If (a=b)or(b=c)or(a=c) then begin k:=1; writeln('Ravnobedrennij'); end;
If (sqr(a)=sqr(b)+sqr(c))or(sqr(b)=sqr(a)+sqr(c))or(sqr(c)=sqr(b)+sqr(a))
then begin k:=1; writeln('Pryamoygolnij'); end;
If (a>b+c)or(b>a+c)or(c>a+b) then begin k:=1; writeln('treygolnik nelza sostavit'); end;
If k=0 then writeln('Treygolnik Raznostoronnij');
readln
end.

 

 

Вторая 

Program n1;
Uses CRT;
Var a,b,c: integer;
begin
ClrScr;
Writeln('Vvedite a,b,c');
Readln(a,b,c);
If (a>0)and(b>0)and(c>0) then writeln('Summa kvadratov=',sqr(a)+sqr(b)+sqr(b));
If (a mod 2=0)or(b mod 2=0)or(c mod 2=0) then writeln('Summa =',a+b+c,', Proizvedenie =',a*b*c);
readln
end.

1 Дан массив А(10). Заменить все нечетные элементы массива на минимальное значение. вывести преобразованный массив.
2 Вести массив А(36). найти произведение первых пяти элементов массива, сумму остальных и частное от деления произведения и суммы. вывести все результаты.

1) при цикла найти минимальное значение.
2) записать значение минимума в отдельную переменную.
3) при цикла каждый элемент проверять на четность, если элемент четный, то тогда переходить к следующему, а если он не четный, то приравнивать его к переменной в которой записан минимум.

1) при цикла ограниченным до 5ого элемента включительно любую объявленную переменную и заранее приравненную к единице умножить поэлементно(при цикла)
2) начиная с 6 элемента и до конца при цикла сложить все элементы и записать эту сумму в отдельную объявленную переменную
3)записать в объявленную переменную выражение  произведение/сумму.
4) вывести все переменные на экран.