можно не нада писать фигню какую-то
можно норм КТО РАЗБИРАЕТСЯ В ИНОРМАТИКИ ПОМАГИТЕ

122

312

Посмотреть ответы 1

Ответы на вопрос:

моллск

Информатика

4,7(68 оценок)

Consr n=10; var a,i,max,min,k,p: integer; m: array [1..n] of integer; begin for i: =1 to n do begin a: =random(21)-10; m[i]: =a; write (m[i],' '); end; max: =m[1]; min: =m[1]; k: =1; p: =1; for i: =1 to n do begin if m[i]> max then begin max: =m[i]; p: =i; end; if m[i]< min then begin min: =m[i]; k: =i; end; end; if p> k then writeln ('минимальный раньше') else writeln ('максимальный раньше'); end.