Составить программу для решения следующей задачи: Дан массив целых…

vari,max: integer; ar: array[0… 200] of integer; beginrandomize; max: =0; for i: =1 to 200 do beginar[i]: =random (200+1) -100; if (ar[i] > max) then max: =ar[i]; if (i mod 20=0) then writeln (ar[i]) else write (ar[i],'); end; writeln (); for i: =1 to 200 do begin if (ar[i] < 0) then ar[i]: =max; if (i mod 20=0) then writeln (ar[i]) else write (ar[i],'); end; end.