Регистрация Спросить otvet5GPT
ALENAFOKS
08.12.2020 21:28
Информатика
Есть ответ 👍

Нужен код программ на паскале 1. найти сумму положительных элементов массива. 2. найти сумму всех четных элементов массива (или сумму элементов, кратных заданному числу). 3. найти сумму всех четных элементов массива, стоящих на четных местах, то есть имеющих четные номера. 4. найти сумму первых пяти элементов массива. 5. найти сумму элементов с k1-ro по k2-й, где k1 и k2 вводятся с клавиатуры. сделать проверку корректности их ввода. 6. найти сумму элементов, больших данного числа а (а вводить с клавиатуры). 7. найти сумму элементов, принадлежащих промежутку от а до в (а и в вводить с клавиатуры). примечание. в 1 — 7 можно находить не только сумму, но и произведение, или проверять, что сумма первых двух цифр равна сумме последних двух цифр. 8. найти максимальный элемент массива и его номер при условии, что все элементы различные. 9. найти номера всех отрицательных элементов (вывести их на экран); если таких нет, то сообщить об этом. 10. найти номера всех элементов с максимальным значением. 11. найти минимальный элемент. 12. найти число нечетных элементов. 13. найти число отрицательных элементов. 14. сколько элементов массива превосходят по модулю заданное число а? 15. найти все элементы, кратные 3 или 5. сколько их? 16. есть ли в данном массиве два соседних положительных элемента? найти номера первой (последней) пары. 17. есть ли в данном массиве элемент, равный заданному числу? если есть, то вывести номер одного из них. 18. найти число четных чисел среди пяти целых чисел (без использования массива). 19. если существует треугольник со сторонами а, b и с, то напечатать «да», в других случаях напечатать «нет» (значении a, b и с вводить с клавиатуры).

260
379
Посмотреть ответы 2

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

znayka001
znayka001
4,4(25 оценок)
12 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 var a: array[1..100] of integer;     i,n,k,s: integer; begin     write('введите размерность: '); readln(n);     for i: =1 to n do     begin       a[i]: =random(31)-15;       write(a[i]: 4);       if a[i] mod 2 = 0 then       begin         s: =s+a[i];         inc(k);       end;     end;     writeln;     writeln('сумма чётных= ',s);     writeln('кол-во чётрых= ',k);     readln; end.
сакура63
сакура63
4,5(10 оценок)
// pascalabc.net 3.2, сборка 1382 от 06.02.2017 // внимание! если программа не работает, обновите версию! begin   var n: =readinteger('количество строк в массиве: ');   var m: =readinteger('количество столбцов в массиве: ');   writeln('*** исходный массив [',n,',',m,'] ***');   var a: =matrrandom(n,m,-99,99);   a.println(4); writeln(5*a.colcount*'-');   a.cols.select(x-> format('{0,4}',x.where(y-> y> 0).('');   println(' - положительных');   a.cols.select(x-> format('{0,4}',x.where(y-> y< 0).('');   println(' - отрицательных'); end. пример количество строк в массиве: 5 количество столбцов в массиве: 8 *** исходный массив [5,8] ***   32  83 -68 -33 -63  43    0  30   81  46 -52  56  49  10 -31    9   -41 -56 -80  70 -95  94 -53  56     0 -87 -24  23 -54  24 -84  -3   22  74  54 -98  42  94 -68  59     3    3    1    3    2    5    0    4 - положительных     1    2    4    2    3    0    4    1 - отрицательных

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

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

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

Caktus Image

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

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

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

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

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

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

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

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

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

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

GTP TOP NEWS