Помогите пожалуйста сделать Блок-Схему))
var N: integer;
var ch: char;
a: array [1..400] of integer;
i,max1,max2: integer;
begin
Randomize;
Write('Введите размерность одномерного массива: ');
Readln(N);
Write('Ввести массив случайно? (y/n) ');
readln(ch);
if ch='y' then
begin
writeln('Исходный массив: ');
for i:=1 to N do
begin
a[i]:= random(-100,100); //массиву задаются случайные значения
write(a[i]:5);
end;
end
else
begin
for i:=1 to N do
begin
readln(a[i]);
end;
end;
writeln;
max1:= a[1]; max2:=integer.MinValue; //стандартные значения
for i:=2 to N do
if a[i] > max1 then //если значение больше этого
begin
max2:= max1; //второе по велечине значение ровно max1
max1:= a[i]; //max1 принимает новое значение
end
else
If (a[i] > max2) and (a[i] < max1) then
max2:=a[i]; // иначе если значение больше второго по величине, оно станет вторым по велечине
writeln('Второе по величине число: ',max2);
write('Конечнный массив: ');
for i:=1 to N do
begin
if i > max2 then a[i]:=max2; // если индекс больше второго по велечине значению, то значение ровно ему
write(a[i]:5);
end;
Writeln;
end.