Регистрация Спросить otvet5GPT
НатальяДубкова
01.10.2020 02:16
Информатика
Есть ответ 👍


написать программу, заполняющую массив из 300 целых чисел из файла «file.txt», который лежит в папки «».
на основе первой программы, найти сумму этих чисел
на основе первой программы, найти произведение этих чисел (попытайтесь объяснить, почему при сложении в целое число получается «0», а в переменную типа read – бесконечность)
на основе первой программы, найти среднее арифметическое этих чисел
большее из этих чисел
подсчитать количество положительных чисел
подсчитать количество четных чисел
подсчитать количество чисел, делящихся на 4 нацело
отсортировать массив по возрастанию
на основе первой программы, вывести числа, которые повторяются более одного раза
1)
assign…
reset…
for i: =1 to 300 do read(f,a[i]);
close…
2) s: =0;
for…
s: =s+a[i]
3)
s: =0;
for…
s: =s*a[i]
4)
s: =0;
for…
s: =s+a[i]
sr: =s/i
5)
max: =a[i]
for…
if max 6) k: =0;
for…
if a[i]> 0 then k: =k+1
7)
if odd(a[i]) then k: =k+1
8)
ifa[i] mod 4 = 0 then k: =k+1
содержимое файла:
-46 13 -23 53 97 19 -34 28 -10 -47 7 65 89 36 -26 100 -47 -39 3 49 -13 -40 -36 7 62 40 -47 -22 -41 47 -46 -11 66 -28 97 -46 98 41 100 -36 72 88 80 8 43 -47 90 85 34 64 -21 -25 12 -47 49 94 -1 71 92 7 16 88 18 43 100 -32 100 67 39 -30 -48 12 -38 -12 78 -1 -19 57 65 58 50 -32 44 -5 18 80 78 62 24 -47 55 -23 50 42 49 84 19 -14 8 24 -46 -27 -4 14 62 68 -37 -27 -24 -1 62 43 -45 -17 57 -3 -7 -27 -25 -30 -10 -13 -8 36 15 75 62 20 40 94 81 95 -2 -10 54 27 73 -20 34 50 66 54 36 -26 -9 -38 -28 17 86 1 40 -4 -39 -12 -17 68 81 60 99 87 -45 43 33 -18 19 67 -6 65 30 -20 25 -37 39 25 4 37 52 -32 -6 2 53 -6 35 -11 3 34 84 -40 -43 86 46 -38 -19 47 44 -28 -29 3 56 24 69 7 88 55 77 27 58 36 84 47 -35 63 16 47 -16 61 -42 -6 80 86 84 -17 58 44 34 12 82 92 81 -19 15 -2 13 70 34 -5 7 80 13 76 77 -2 -24 10 71 84 46 35 13 83 -37 77 24 71 41 35 50 -7 -29 14 45 66 55 53 -18 68 -1 46 -37 89 4 -21 82 -47 -42 35 -43 -2 74 50 67 -3 29 98 -33 39 74 43 -22 99 46 -36 59 99 -19 -39 43 24 -22 -48

149
241
Посмотреть ответы 1

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

nasibyannn
nasibyannn
4,7(53 оценок)
Pascalabc.net 3.4.2, сборка 1884 от 24.11.2018 внимание! если программа не работает, обновите версию!

begin

  var n : = readinteger;

  var a : = arrrandom(n, 1, 100);

  a.println;

  var p : = biginteger(1);

  for var i : = 0 to n - 1 do

    if a[i] mod 2 = 0 then p : = p * a[i];

  p.println

end.

пример 90

67 13 96 10 94 24 16 2 43 94 60 60 56 88 28 27 75 32 90 18 70 32 6 23 81 57 38 73 25 6 20 52 56 33 38 79 20 81 67 49 33 29 43 36 74 46 13 14 30 93 72 8 10 99 89 35 8 73 30 37 86 43 78 38 75 9 4 24 50 49 8 95 65 42 85 42 90 71 50 35 45 25 44 33 34 13 43 57 45 4

752729749734296001571550469794689018400554807071967543296000000000000000

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

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

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

Caktus Image

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

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

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

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

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

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

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

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

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

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

GTP TOP NEWS