Сделать блок-схему)) 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.
