Регистрация Спросить otvet5GPT
mikhuil
01.01.2021 03:29
Информатика
Есть ответ 👍

Все три. 1. в массиве [-6,7,45-12,2,7,-15,0,64] подсчитать количество и сумму положительных элементов и вывести на экран все элементы массива в виде: а[0]= -6 а[1]= 7 2. в массиве d[40], элементы которого находятся по формуле d[x]=45x+15 определить количество нечетных элементов. 3. в массиве p[25] найти среднее арифметическое всех элементов, если элементы массива находятся по форму p[k]=7k+3k/15

278
354
Посмотреть ответы 3

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

dashvali
dashvali
4,5(83 оценок)
// pascalabc.net 3.2, сборка 1379 от 21.01.2017 // внимание! если программа не работает, обновите версию! begin   var a: =arr(-6,7,45,-12,2,7,-15,0,64);   var kp: =0; var sp: =0;   for var i: =0 to a.length-1 do begin       writelnformat('a[{0}]={1}',i,a[i]);       if a[i]> 0 then begin kp+=1; sp+=a[i] end       end;   writeln('сумма ',kp,' положительных элементов равна ',sp) end. результат a[0]=-6 a[1]=7 a[2]=45 a[3]=-12 a[4]=2 a[5]=7 a[6]=-15 a[7]=0 a[8]=64 сумма 5 положительных элементов равна 125 2 begin   writeln(seqgen(40,x-> 45*x+15,1).where(x-> x.isodd).count); end. результат 20 3 begin   writeln(seqgen(25,k-> 7*k+3*k/15,1).average); end. результат 93.6
Sofiko20017
Sofiko20017
4,7(15 оценок)
Первое: program r;       var a: array[0..8] of integer=(-6,7,45,-12,2,7,-15,0,64); l,i,sum: integer;       begin;       for i: =0 to 8 do               if a[i]> 0 then begin;                       sum: =sum+a[i];                       l: =l+1;               end;       for i: =0 to 8 do               writeln('a[',i,'] = ', a[i]);       write('сумма положительных элементов равна ',sum,', а из количество ',l); end. второе: program t;       var d: array [0..40] of integer; l,x: integer;       begin;       for x: =0 to 40 do begin;               d[x]: =45*x+15;               if d[x] mod 2 = 1 then l: =l+1;       end;       write('кол-во нечётных элементов ',l); end. третье: program y;       var p: array [0..25] of real; k: integer; avg: real; begin;       for k: =0 to 25 do begin;               p[k]: =7*k+3*k/15;               avg: =avg+p[k];       end;       avg: =avg/26;       write('среднее значение элементов массива ', avg); end.
elisavetafolst
elisavetafolst
4,6(91 оценок)
Кадр анимации представляет картинку изображения которая сменяется другим кадром ещё это маленькая часть в анимации

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

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

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

Caktus Image

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

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

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

  • Сколько это стоит?

    Проект находиться на стадии тестирования и все услуги бесплатны.

  • Могу ли я использовать otvet5GPT в школе?

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

  • В чем отличия от ChatGPT?

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

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

GTP TOP NEWS