Program gt;
var a:array[1..12]of integer;
n,i,max:integer;
begin
randomize;
for i:=1 to 12 do
begin
a[i]:=random(100)-50;
write(a[i],' ');
end;
writeln;
write(a[2],' ',a[3],' ',a[4],' ',a[9],' ',a[12],' ');
max:=a[1];
for i:=2 to 12 do
begin
if(a[i]>max)then max:=a[i];
end;
writeln(max);
end.
Возьми и положи все необходимые тебе учебники, тетради и тому подобное в портфель
{конструкция else для того если будут введены отрицательные x y}
var
x,y:real;begin
readln(x,y);
if (x*x*x*x*x+y)>0 then
writeln(exp(ln(x*x*x*x*x+y)*(1/3))*PI/(1+(exp(ln(2)*y)/x)))
else
writeln(-exp(ln(abs(x*x*x*x*x+y))*(1/3))*PI/(1+(exp(ln(2)*y)/x)));
<span>end.</span>
Во всех программах, если будешь использовать функцию scanf() или поток std::cin, то вывод всех элементов делай в другом цикле.
A -> B = 4 + B -> D = 3 + D -> E = 2 + E -> D = 5 (4+3+2+5) = 14
A -> B = 4 + B -> C = 6 + C -> E = 4 + E -> D = 5 (4+6+4+5) = 19
Ответ 14