Правое верхнее - 8
правое нижнее - 19
слева обе картинки одинаковые, но не видно значения Dat[10]
если оно меньше или равно 12 то ответ для этих заданий 6, если строго больше 12 то ответ 7
var a:array [1..12] of integer;
i:integer;
begin
for i:=1 to 12 do a[i]:=random(6)+1;
writeln('Исходный массив: ',a);
for i:=1 to 12 do a[i]:=a[i]*2;
writeln('Преобразованный массив: ',a)
end.
var a:array [1..10] of integer;
i:integer;
begin
for i:=1 to 10 do
begin
a[i]:=random(9)+1;
write(a[i],' ')
end
end.
Program n1;
var a,b,s,p: real;
begin
write ('Введите длину катета a: ');
readln(a);
write ('Введите длину катета b: ');
readln(b);
s:=a*b*0.5;
p:=a+b+sqrt(sqr(a)+sqr(b));
writeln('Периметр треугольника равен ',p,' Площадь треугольника равна ',s);
end.
<span>Найти площадь равнобедренной трапеции с основанием А и В и углом при большом основании С
</span>var
a, b, c, h, s, tg : double;
begin
read (a, b, c);
tg := sin (c * pi / 180) / cos (c * pi / 180); //функции принимают углы в радианах
h := tg * abs(a - b) / 2;
s := h * (a + b) / 2;
writeln (s);
<span>end. </span>