Question

Нужно составить блок-схему по программе
Program Lab1;
const
n = 20;
var
a: array[1..n] of byte;
i, imin: byte;
begin
writeln('Исходный массив:');
for i := 1 to n do
begin
a[i] := random(100);
write(a[i], ' ');
end;
writeln;
imin := 1;
for i := 2 to n do
begin
if a[i] < a[imin] then imin := i;
end;
writeln('Минимум = ',a[imin],', позиция: ',imin);
end.

Answer 1

FCEditor разгрузит тебе работу, вот 2 раз и схема готова.