составьте программу, которая заполняет массив случайными целыми числами в диапозоне от 1 до 100, затем меняет местами наименьший четный элемент с наибольшим нечетным элементом

Program Pr1;

uses crt;

var mas:array[1 ... 10] of integer;

i, max, min, a, b:integer;

Begin

clrscr;

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]
min:=mas[i];

b:=i;

end;

end;

i:=mas[a];

mas[a]:=mas[b];

mas[b]:=i;

writeln () ;

for i:=1 to 10 do write (mas[i]) ;

end.