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

Составьте программу, которая формирует массив из 40 случайных чисел от 0 до 20 и вычисляет:
а) среднее арифметическое нечетных чисел
б) сумму чисел, не превышающих 10
в) сумму чисел, кратных 3
На экран выводятся исходные значения и результаты вычислений.
Только а, б и в нужно написать как отдельные задачи, а не как одна.
Пожалуйста, помогите. Очень срочно, завтра сдавать!

  1. Ответ на вопрос
    Ответ на вопрос дан uropb123
    a)
    program a1;
    uses crt;
    var m:array[1..40]of integer;
    i:byte;
    a,ka:integer;
    begin
    clrscr;
    a:=0;ka:=0;
    for i:=1 to 40 do
    begin
     m[i]:=random(21);
     if m[i] mod 2<>0 then
     begin
     ka:=ka+1;
     a:=a+m[i];
     end;
     end;
    for i:=1 to 40 do  if i=1 then write('M[',m[i],',')   else  if i=40 then writeln(m[i],']')   else  write(m[i],',');
    writeln('Среднее арифметическое нечетных чисел=',a/ka);
    end.
    b)
    program b1;
    uses crt;
    var m:array[1..40]of integer;
    i:byte;
    b:integer;
    begin
    clrscr;
    for i:=1 to 40 do
    begin
     m[i]:=random(21);
     begin
     if m[i]<=10 then b:=b+m[i];
     end;
     end;
    for i:=1 to 40 do  if i=1 then write('M[',m[i],',')   else  if i=40 then writeln(m[i],']')   else  write(m[i],',');
    writeln('Сумма чисел не превышающих 10=',b);
    end.
    в)
    program v1;
    uses crt;
    var m:array[1..40]of integer;
    i:byte;
    c:integer;
    begin
    clrscr;
    for i:=1 to 40 do
    begin
     m[i]:=random(21);
     begin
    if m[i] mod 3=0 then c:=c+m[i];
     end;
     end;
     for i:=1 to 40 do
     if i=1 then write('M[',m[i],',')
     else
     if i=40 then writeln(m[i],']')
     else
    write(m[i],',');
    writeln('Сумма чисел кратных 3 = ',c);
    end.




  2. Ответ на вопрос
    Ответ на вопрос дан HRAshton
    1)
    var a: array [1..40] of integer;
        i, s1, s2: integer;
    begin
         for i := 1 to 40 do
         begin
              a[i] := random(20);
              writeln('a[', i, '] => ', a[i]);
              if (a[i] mod 2 = 1) then
              begin
                   s1 := s1 + a[i];
                   inc(s2);
              end;
         end;
         writeln(s1 / s2);
    end.

    2)
    var a: array [1..40] of integer;
        i, q: integer;
    begin
         for i := 1 to 40 do
         begin
              a[i] := random(20);
              writeln('a[', i, '] => ', a[i]);
              if (a[i] <= 10) then q := q + a[i];
         end;
         writeln(q);
    end.

    3)
    var a: array [1..40] of integer;
        i, w: integer;
    begin
         for i := 1 to 40 do
         begin
              a[i] := random(20);
              writeln('a[', i, '] => ', a[i]);
              if (a[i] mod 3 = 0) then w := w + a[i];
         end;
         writeln(w);
    end.
Не тот ответ на вопрос, который вам нужен?
Найди верный ответ
Самые новые вопросы
Никита081
Математика - 5 лет назад

Сколько здесь прямоугольников

Alinashastova
История - 6 лет назад

Какое управление было в древнейшем риме? как звали первого и последнего из царей рима?

diankayusupova3
Литература - 6 лет назад

Уроки французского ответе на вопрос : расскажите о герое по следующему примерному плану: 1.почему мальчик оказался в райцентре ? 2.как он чувствовал себя на новом месте? 3.почему он не убежал в деревню? 4.какие отношения сложились у него с товарищами? 5.почему он ввязался в игру за деньги? 6.как характеризуют его отношения с учительницей ? ответе на эти вопросы пожалуйста ! сочините сочинение пожалуйста

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) их не спросили

pakhotnov228
Русский язык - 6 лет назад

Переделай союзное предложение в предложение с бессоюзной связью. 1. океан с гулом ходил за стеной чёрными горами, и вьюга крепко свистала в отяжелевших снастях, а пароход весь дрожал. 2. множество темноватых тучек, с неясно обрисованными краями, расползались по бледно-голубому небу, а довольно крепкий ветер мчался сухой непрерывной струёй, не разгоняя зноя 3. поезд ушёл быстро, и его огни скоро исчезли, а через минуту уже не было слышно шума

ggg3288
Русский язык - 6 лет назад

помогите прошу!перепиши предложения, расставляя недостающие знаки препинания. объясни, что соединяет союз и. если в предложении один союз и, то во втором выпадающем списке отметь «прочерк».пример:«я шёл пешком и,/поражённый прелестью природы/, часто останавливался».союз и соединяет однородные члены.ночь уже ложилась на горы (1) и туман сырой (2) и холодный начал бродить по ущельям.союз и соединяет:1) части сложного предложенияоднородные члены,2) однородные членычасти сложного предложения—.поэт — трубач зовущий войско в битву (1) и прежде всех идущий в битву сам (ю. янонис).союз и соединяет:1) части сложного предложенияоднородные члены,2) ​

Аккаунт удален
Физика - 6 лет назад

Вокруг прямого проводника с током (смотри рисунок) существует магнитное поле. определи направление линий этого магнитного поля в точках a и b.обрати внимание, что точки a и b находятся с разных сторон от проводника (точка a — снизу, а точка b — сверху). рисунок ниже выбери и отметь правильный ответ среди предложенных.1. в точке a — «от нас», в точке b — «к нам» 2. в точке a — «к нам», в точке b — «от нас» 3. в обеих точках «от нас»4. в обеих точках «к нам»контрольная работа по физике.прошу,не наугад важно

Информация

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