Question

Паскаль Написать код. Дан целочисленный массив из 30 элементов. Элементы массива могут принимать целые значения от 1 до 60 вывести массив. Затем найти и вывести мин.значение среди элементов массива, которые имеют четное значение и кратны 4. Если таких элементов нет, принять минимум равный нулю. Затем найти среднее арифметическое нечётных элементов

Answer 1

program raf105;

var i,min,kolN,sumN,sariN:integer;

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

begin

writeln('Элементы массива:');

min:=99;

for i:=1 to 30 do

begin

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

 write(a[i],' ');

 if (a[i]<min) and ((a[i] mod 4)=0)

   then min:= a[i];

 if ((a[i] mod 2)<>0)

   then

   begin

     kolN:= kolN+1;

     sumN:= sumN+a[i];

   end;

end;

writeln;

if min=99

 then min:=0;

sariN:= round(sumN/kolN);

writeln('Минимальное значение среди чётных элементов кратных четырём:');

writeln(min);

writeln('Среднее арифметическое среди нечётных элементов:');

writeln(sariN);

end.

Язык программирования PascalABC

Answer 2

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

pascalCopy code
program ArrayOperations;

const
  N = 30;

var
  arr: array[1..N] of integer;
  i, minEvenDivisibleBy4, sumOddElements, countOddElements: integer;
  avgOddElements: real;

begin
  { Ввод и вывод массива }
  writeln('Исходный массив:');
  for i := 1 to N do
  begin
    arr[i] := Random(60) + 1; // Заполняем массив случайными значениями от 1 до 60
    write(arr[i], ' ');
  end;
  writeln;

  { Поиск минимального четного значения, кратного 4 }
  minEvenDivisibleBy4 := 0;
  for i := 1 to N do
  begin
    if (arr[i] mod 4 = 0) and ((minEvenDivisibleBy4 = 0) or (arr[i] < minEvenDivisibleBy4)) then
      minEvenDivisibleBy4 := arr[i];
  end;

  writeln('Минимальное значение среди элементов, которые четные и кратны 4: ', minEvenDivisibleBy4);

  { Поиск среднего арифметического нечетных элементов }
  sumOddElements := 0;
  countOddElements := 0;

  for i := 1 to N do
  begin
    if (arr[i] mod 2 <> 0) then
    begin
      sumOddElements := sumOddElements + arr[i];
      Inc(countOddElements);
    end;
  end;

  if countOddElements > 0 then
    avgOddElements := sumOddElements / countOddElements
  else
    avgOddElements := 0;

  writeln('Среднее арифметическое нечетных элементов: ', avgOddElements:0:2);
end.

Программа создает массив из 30 элементов и заполняет его случайными значениями от 1 до 60. Затем она находит минимальное значение среди элементов, которые четные и кратны 4, и выводит его. После этого программа находит среднее арифметическое нечетных элементов массива и выводит его на экран.