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.

Answer 2

Конечно, вот пример алгоритма на языке Паскаль, который находит минимум среди элементов массива, кратных 4, и выводит его на экран:

pascalCopy code
program FindMinMultipleOf4;

const
  N = 30; // Количество элементов в массиве

var
  arr: array[1..N] of Integer;
  i, minMultipleOf4: Integer;

begin
  // Заполнение массива случайными значениями от 1 до 10000
  Randomize;
  for i := 1 to N do
    arr[i] := Random(10000) + 1;

  // Поиск минимума среди элементов, кратных 4
  minMultipleOf4 := MaxInt; // Инициализация минимума большим значением
  for i := 1 to N do
  begin
    if (arr[i] mod 4 = 0) and (arr[i] < minMultipleOf4) then
      minMultipleOf4 := arr[i];
  end;

  // Вывод результата
  if minMultipleOf4 <> MaxInt then
    WriteLn('Минимум среди элементов, кратных 4: ', minMultipleOf4)
  else
    WriteLn('Среди элементов нет чисел, кратных 4');

end.

Обратите внимание, что этот код создает массив из 30 случайных элементов, затем находит минимум среди элементов, кратных 4, и выводит его на экран.