Есть ответ 👍

№1. дан массив из 30-ти элементов. каждый элемент может принимать целочисленные значения от -100 до 100. напишите программу, которая позволит подсчитать среднее арифметическое положительных элементов массива, которые кратны первому элементу массива. №2. дан массив из 40 элементов. каждый элемент может принимать целочисленные значения от 0 до 200. напишите программу, которая позволит найти наиболее часто встречающийся элемент массива

262
479
Посмотреть ответы 2

Ответы на вопрос:

kadaran
4,4(67 оценок)

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

i, j, cou, coumax, amax: integer;

begin

    coumax: =0;

    for i: =1 to 40 do

      readln(a[i]);

    for i: =1 to 40 do begin

      cou: =0;

      for j: =1 to 40 do

          if(a[i]=a[j]) then inc(cou);

      if(cou> coumax) then begin

          coumax: =cou;

          amax: =a[i];

      end;

    writeln(amax, '  is the most repeated value');

end.

 

var a1, temp, cou, i, sum: integer;

begin

    read(a1);

    if (a1> =0) then cou: =1 else cou: =0;

    if (cou> 0) then sum: =a1 else sum: =0;

    for i: =2 to 40 do begin

      read(temp);

      if (temp> 0) and (temp mod a1=0) then begin

          inc(cou);

          inc(sum,temp);

      end;

    end;

    writeln(sum/cou)

end.

Valeria0710
4,5(90 оценок)

Uses crt; var a: array[1..5] of integer; i,min: integer; begin     writeln('введите пять чисел: ');     for i: =1 to 5 do       read(a[i]);     min: =a[1];     for i: =1 to 5 do       if a[i]< min then min: =a[i];     writeln;     write('минимальный элемент ',min); end.

Реши свою проблему, спроси otvet5GPT

  • Быстро
    Мгновенный ответ на твой вопрос
  • Точно
    Бот обладает знаниями во всех сферах
  • Бесплатно
    Задай вопрос и получи ответ бесплатно

Популярно: Информатика

Caktus Image

Есть вопросы?

  • Как otvet5GPT работает?

    otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
  • Сколько это стоит?

    Проект находиться на стадии тестирования и все услуги бесплатны.
  • Могу ли я использовать otvet5GPT в школе?

    Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
  • В чем отличия от ChatGPT?

    otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.

Подпишись на наш телеграмм канал

GTP TOP NEWS