Сделать блок-схему по имеющемуся коду Pascal
program DauMoH;
const
n = 25;
type
mas = array[1..n] of real;
var
a: mas;
i, g: byte;
k: real;
begin
randomize;
write('Оригинальный:');
for i := 1 to n do
begin
a[i] := Random;
write(a[i]:6:2);
end;
K := a[1];
for i := 1 to n do
if a[i] < k then
begin
k := a[i];
g := i;
end;
writeln; write('Полученный: ');
a[g] := a[1];
a[1] := k;
for i := 1 to n do
write(a[i]:6:2);
readln;
end.