Question

Дан массив из 20-ти элементов - случайных целых чисел в диапазоне от 20 до 70 Найти в этом
массиве минимальное чётное число и минимальное нечётное число.
Паскаль,помогите пожалуйста

Answer 1

Ответ:

const N = 20;

const MAX = 70;

const MIN = 20;

var A: array [1..N] of integer;

var i,c1,c2: integer;

begin

randomize();

c1:=-1;

c2:=-1;

writeln('Исходный массив: ');

for i:=1 to N do

 begin

 A[i]:=random(MAX-MIN+1)+MIN;

 write(A[i],' ');

 if (A[i] mod 2 = 0) then  

   if (c1=-1) or (A[i]<A[c1]) then c1:=i;

 if (A[i] mod 2 <> 0) then  

   if (c2=-1) or (A[i]<A[c2]) then c2:=i;

 end;

writeln();

if (c1<>-1) then writeln('Минимальное четное: ',A[c1]);

if (c2<>-1) then writeln('Минимальное нечетное: ',A[c2]);

end.