Составьте программу, которая заполняет массив случайными целыми числами в…

Program Pr1; uses crt; var mas: array[1… 10] of integer; i,max,min,a,b: integer; Beginclrscr; max: =0; min: =150; randomize; for i: =1 to 10 do mas[i]: =1+random (100); for i: =1 to 10 do write (mas[i]); for i: =1 to 10 do begin if (mas[i] mod 2=0) and (mas[i]>max) then begin max: =mas[i]; a: =i; end; if (mas[i] mod 2=0) and (mas[i]