Текст программы написал ,а блок схема не получается , помогите кто чем может Даны номерные знаки машин.Определить ,есть ли среди них одинаковые.Вывести соответствующее сообщение
program n1;
uses crt;
var
Arr: array [1..20] of integer;
I, J: integer;
begin
Randomize;
for I := 1 to 20 do
Arr[i] := Random(900) + 100; I := 1;
while I <= 20 do
begin
for J := I + 1 to 20 do
if Arr[i] = Arr[J] then
ShowMessage('Есть совпадения!');
inc(I);
end;
end;
В Паскале