Представить систему как чёрный ящик - это значит указать её входы и выходы
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.
Program arr;
var
a: array[1..10] of integer;
i: integer;
begin
randomize;
for i := 1 to 10 do
a[i] := Random(10);
for i := 1 to 10 step 2 do
a[i] := a[i] * 3;
for i := 2 to 10 step 2 do
a[i] := 0;
end.
А вопрос какой?
можно сказать слово
весточка