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

Ответы 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

  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years