Определить форму ветвлений в 1 стихотворении и во втором​

1. PascalABC.NET 3.3
const n=18;
begin
  var a:=ArrRandom(n,0,100);
  for var i:=0 to n-1 do begin
    write(a[i],' ');
    if (i+1) mod 6=0 then writeln;
  end;
  writeln('Среднее арифметическое = ',a.Average);
  writeln('max = a[',a.IndexMax,'] = ',a.Max);
  writeln('min = a[',a.IndexMin,'] = ',a.Min);
end.

2.
const n=18;
var a:array[1..n] of integer;
x,max,min,imax,imin,i:integer;
begin
Randomize;
for i:=1 to n do begin
 a[i]:=random(101);
 write(a[i],' ');
 if i mod 6=0 then writeln;
 end;
x:=0;
max:=a[1]; imax:=1;
min:=a[1]; imin:=1;
for i:=1 to n do
 begin
 x:=x+a[i];
 if a[i]>max then begin max:=a[i]; imax:=i; end;
 if a[i]<min then begin min:=a[i]; imin:=i; end;
 end;
writeln('Среднее арифметическое = ',x/n:6:3);
writeln('max = a[',imax,'] = ',max);
writeln('min = a[',imin,'] = ',min);
end.

Пример:
55 32 51 53 6 82
94 27 43 61 56 20
63 6 92 32 14 84
Среднее арифметическое = 48.389
max = a[7] = 94
min = a[5] = 6

def cylinder():

r = float(input())

h = float(input())

# площадь боковой поверхности цилиндра:

side = 2 * 3.14 * r * h

# площадь одного основания цилиндра:

circle = 3.14 * r**2

# полная площадь цилиндра:

full = side + 2 * circle

return full

square = cylinder()

print(square)

Пример выполнения:

3

7

188.4

В данной программе в основную ветку из функции возвращается значение локальной переменной full. Не сама переменная, а ее значение, в данном случае – какое-либо число, полученное в результате вычисления площади цилиндра.

В основной ветке программы это значение присваивается глобальной переменной square. То есть выражение square = cylinder() выполняется так:

Вызывается функция cylinder().

Из нее возвращается значение.

Это значение присваивается переменной square.

Этот мой ответ и он официальный и копированию не подлежит! ©