var X: array [1..10] of integer; a,s,i: integer; begin randomize; write('Хотите заполнить массив самостоятельно? (1) Или автоматически? (2)'); readln(s); case s of 1: begin writeln('Введите 10 элементов массива: '); for i:= 1 to 10 do readln(X[i]); a:=X[1]; for i:= 1 to 10 do if a < X[i] then a:=X[i]; writeln('Максимальный элемент: ',a); end; 2: begin writeln('Массив: '); for i:= 1 to 10 do begin X[i]:=random(101); write(X[i]:4); end; writeln; a:=X[1]; for i:= 1 to 10 do if a < X[i] then a:=X[i]; writeln('Максимальный элемент: ',a); end; end; end.
Объяснение:
Замечание: Там где int divisor = 1, должно быть 2