Ответ:

pascal

Объяснение:

program z_1;

var

 i, minz, maxz: integer;

 a: array[1..30] of integer;

begin

 minz := 10000;

 maxz := 0;

 WriteLn('Введите элементы массива от 0 до 10000:');

 for i := 1 to 30 do

 begin

   repeat

     Write('a[', i, ']= '); ReadLn(a[i]);

   until (a[i] >= 0) and (a[i] <= 10000);

   if (a[i] mod 2 = 0) and (a[i] < minz) then minz := a[i];

   if (a[i] mod 2 = 0) and (a[i] > maxz) then maxz := a[i];

 end;

 WriteLn('Минимальный четный элемент массива равен ', minz);

 WriteLn('Максимальный четный элемент массива равен ', maxz);

end.

program z_2;

var

 i, maxz: integer;

 a: array[1..30] of integer;

begin

 maxz := 0;

 WriteLn('Введите элементы массива от 0 до 10000:');

 for i := 1 to 30 do

 begin

   repeat

     Write('a[', i, ']= '); ReadLn(a[i]);

   until (a[i] >= 0) and (a[i] <= 10000);

   if (a[i] mod 5 = 0) and (a[i] > maxz) then maxz := a[i];

 end;

 WriteLn('Максимальный элемент массива, кратный 5, равен ', maxz);

end.

program z_3;

var

 i, minc, minn, s: integer;

 a: array[1..30] of integer;

begin

 minc := 10001;

 minn := 10001;

 WriteLn('Введите элементы массива от 0 до 10000:');

 for i := 1 to 30 do

 begin

   repeat

     Write('a[', i, ']= '); ReadLn(a[i]);

   until (a[i] >= 0) and (a[i] <= 10000);

   if (a[i] mod 2 = 0) and (a[i] < minc) then minc := a[i];

   if (a[i] mod 2 = 1) and (a[i] < minn) then minn := a[i];

 end;

 if minc = 10001 then minc := 0;

 if minn = 10001 then minn := 0;

 s := minc + minn;

 for i := 30 downto 1 do

 begin

   if a[i] > s then a[i] := a[i] - s;

   WriteLn(a[i]);

 end

end.