Розділ 4 Варiант 2
1. Складіть блок-схему алгоритму для наведеного фрагмента програми і запишіть
його виконання.
ѕ=a 3
надати
значення з
значення 4
повторити поси ме
s > 30
while s <= 30:
s = s + a
а += 5
print (s)
надати ѕе значення
Pва 5
помазати знайы му 5
Блок-схема алгоритму
Хід виконання​

function summa(n:integer):integer;

var a,s:integer;

begin

a:=abs(n);

s:=0;

while a>0 do

begin

 s:=s+a mod 10;

 a:=a div 10;

end;

summa:=s

end;

const n=10;

var A:array [1..n] of integer;

   j,i,k:integer;

begin

writeln('Исходный массив: ');

for i:=1 to n do

begin

 A[i]:=random(15)+1;

 write(A[i]:4);

end;

for i:=1 to n-1 do

begin

 for j:=1 to n-1 do

 if summa(A[j])<summa(A[j+1]) then

  begin

   k:=A[j];

   A[j]:=A[j+1];

   A[j+1]:=k

  end;

end;

writeln;

writeln('Отсортированный массив: ');

for i:=1 to n do

write(A[i]:4);

readln

end.

function summa(n:integer):integer;

var a,s:integer;

begin

a:=abs(n);

s:=0;

while a>0 do

begin

 s:=s+a mod 10;

 a:=a div 10;

end;

summa:=s

end;

const n=10;

var A:array [1..n] of integer;

   j,i,k:integer;

begin

writeln('Исходный массив: ');

for i:=1 to n do

begin

 A[i]:=random(15)+1;

 write(A[i]:4);

end;

for i:=1 to n-1 do

begin

 for j:=1 to n-1 do

 if summa(A[j])<summa(A[j+1]) then

  begin

   k:=A[j];

   A[j]:=A[j+1];

   A[j+1]:=k

  end;

end;

writeln;

writeln('Отсортированный массив: ');

for i:=1 to n do

write(A[i]:4);

readln

end.