Здравствуйте, amelya.kuro! Вот программа, а блок-схема в прикреплённом файле: [code lang=pascal h=300] program Project3;

{$APPTYPE CONSOLE}

uses
SysUtils;

const
n = 5;
m = 10;
var
a: array [1..n] of integer;
b: array [1..m] of integer;
min, i, j: integer;
begin
randomize;
{Создаём массив А(5)}
for i:= 1 to n do
begin
a[i]:= random(50);
write(a[i]:3);
end;
writeln;
{Находим минимальный элемент массива А(5)}
min:= a[1];
j:= 1;
for i:= 2 to n do
begin
if min > a[i] then
begin
min:= a[i];
j:= i;
end;
end;
{выводим минимальный элемент массива}
write(min:3);
{выводим номер минимального элемента массива}
write(j:3);
writeln;
{Создаём массив В(10)}
for i:= 1 to m do
begin
b[i]:= random(50);
write(b[i]:3);
end;
writeln;
{Находим минимальный элемент массива В(10)}
min:= b[1];
j:= 1;
for i:= 2 to m do
begin
if min > b[i] then
begin
min:= b[i];
j:= i;
end;
end;
{выводим минимальный элемент массива}
write(min:3);
{выводим номер минимального элемента массива}
write(j:3);

sleep(10000);
end.[/code]