profile
Размещено 6 лет назад по предмету Информатика от skyrimchik

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

  1. Ответ на вопрос
    Ответ на вопрос дан nelle987

    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.

Не тот ответ на вопрос, который вам нужен?
Найди верный ответ
Самые новые вопросы
tegysigalpa2012
Русский язык - 6 лет назад

Помогите решить тест по русскому языку тест по русскому языку «местоимение. разряды местоимений» для 6 класса 1. укажите личное местоимение: 1) некто 2) вас 3) ни с кем 4) собой 2. укажите относительное местоимение: 1) кто-либо 2) некоторый 3) кто 4) нам 3. укажите вопросительное местоимение: 1) кем-нибудь 2) кем 3) себе 4) никакой 4. укажите определительное местоимение: 1) наш 2) который 3) некий 4) каждый 5. укажите возвратное местоимение: 1) свой 2) чей 3) сам 4) себя 6. найдите указательное местоимение: 1) твой 2) какой 3) тот 4) их 7. найдите притяжательное местоимение: 1) самый 2) моего 3) иной 4) ничей 8. укажите неопределённое местоимение: 1) весь 2) какой-нибудь 3) любой 4) этот 9. укажите вопросительное местоимение: 1) сколько 2) кое-что 3) она 4) нами 10. в каком варианте ответа выделенное слово является притяжательным местоимением? 1) увидел их 2) её нет дома 3) её тетрадь 4) их не спросили

Информация

Посетители, находящиеся в группе Гости, не могут оставлять комментарии к данной публикации.