Program Treug;
Var a,b: real;
Begin;
writeln('Введите a и b');
readln(a,b);
writeln('Площадь треугольника: ' a*b);
writeln('Периметр треугольника:' 2*(a+b);
End.
вот легкий код
C1=$A1+B$1=135
C2=$A2+B$1=70
C3=$A3+B$1=145
D1=$A1+C$1=245
D2=$A2+C$1=180
D3=$A3+C$1=255
<em>// PascalABC.NET 3.3, сборка 1627 от 27.01.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(ReadInteger('n='),-50,50);
a.Println;
end.
<u>Пример</u>
n= 15
24 17 2 47 -32 20 -39 -36 3 -1 -44 35 40 -20 -35
var
i: integer;
mas: array[1..12] of byte;
begin
randomize;
for i:=1 to 12 do
mas[i]:= random(20) + 1;
writeln('Сумма = ', mas[1]+mas[2]+mas[3]+mas[4]+mas[5]+mas[6]);
end.