A:=7;
b:=4;
a:=5*b-2*a; a:=5*4-2*7=6;
b:=a/3*8+5*b; b:=6/3*8+5*4=36
Var a:array[1..5,1..10] of integer;
b:array[1..5,1..10] of real;
i,max:integer;
begin max:=0;
for i:=1 to 5 do
for j:=1 to 10 do begin
read(a[i,j]);
if abs(a[i])> max then max:=a[i];
end;
for i:=1 to 5 do
for j:=1 to 10 do begin
b[i,j]:=a[i,j]/max
write(a[i,j]);
end;
end.
ветвление - это выполнение той или другой последовательности действий в зависимости от выполнения какого-либо условия
например, вспомним сказку А.С. Пушкина "Руслан и Людмила", а именно действия учёного кота:
<span><em>Идет направо - песнь заводит,</em>
</span><span><em>Налево - сказку говорит</em>
алгоритм для кота:
<em>если </em>идешь направо,
</span><span> <em>то </em>пой песню,
<em> иначе </em>говори сказку</span>
<span>другой пример из жизни:
<em>если </em>сделал уроки,<em>
</em></span><span><em> то </em>отдыхай,
<em> иначе </em>делай уроки</span>
<span>и ещё пример:
<em>если </em>натуральное число делится на два без остатка,
</span><span><em> то </em>данное число чётное,
<em>иначе </em>данное число нечётное
</span>
768 строк, это же очевидно...
И не расширение, а разрешение