Question

Дан целочисленный массив из 30 элементов. Элементы массива могут принимать натуральные значения от 1 до 10000 включительно. Опишите алгоритм, который находит минимум среди элементов массива, кратных 4 и выведите его на экран
ЯЗЫК ПАСКАЛЬ!!!

Answer 1

Ответ:

const N=30;

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

var min,i: integer;

begin

randomize;

min:=-1;

for i:=1 to N do

 begin

 a[i]:=random(1,10000);

 write(a[i]:5);

 if (a[i] mod 4 = 0) then

   begin

   if (min=-1) then min:=i

   else if (a[i]<a[min]) then min:=i;

   end

 end;

writeln;

if (min<>-1) then

writeln('Минимум среди элементов массива, кратных 4  = ',a[min])

else writeln('В массиве нет элементов, кратных 4');

end.