Регистрация Спросить otvet5GPT
SnegRainbow
16.03.2022 07:06
Информатика
Есть ответ 👍

Programsumma; usescrt; constn=5; var a: array[1..n] of integer; m,i,s: integer; автоматическое заполнение случайными числами от1 до20 procedure input; procedure input; begin begin for i: =1 to n do p: =1; q: =20; randomize; begin for i: =1 to n do a[i]: =random(q-p+1)+p; write('a[',i,']='); readln(a[i]); end; end end; procedure print; begin write('массив целых чисел а: '); for i: =1 to n do write(' ',a[i]) writeln; writeln; { пропуск строки } end; procedure sum( m: integer); begin s: =0; for i: =1 to m do s: =s+a[i]; end; begin clrscr; input; { заполнение массива из 5 элементов } clrscr; print; { печать заполненного массива } write('сколько элементов суммировать: '); readln(m); sum(m); writeln; { суммирование m элементов массива } writeln('сумма ',m,' элементов массива равна: ', s); { суммирование всех элементов массива } sum(n); writeln; writeln('сумма всех ',n,' элементов массива равна: ', s); write ('среднее арифметическое всех элементов равно ', s/n); readkey; end. з а д а н и я: 1. набрать и исполнить программу. 2. увеличить число элементов массива. 3. найти сумму 8 элементов массива. 4. осуществить ввод количества элементов массива с клавиатуры.

241
332
Посмотреть ответы 2

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

ponhik4
ponhik4
4,7(33 оценок)
{правильная программа, кол-во элементов вводится с клавиатуры } program summa; uses crt; type a1= array of integer; var a: a1; m,s,n: integer; procedure input; const p=1; const q=20; var i: integer; begin randomize; begin for i: =0 to n-1 do a[i]: =random(q-p+1)+p; write('a[',i,']='); readln(a[i]); end; end; procedure print; var i: integer; begin write('массив целых чисел а: '); for i: =0 to n-1 do write(' ',a[i]); writeln; writeln; end; procedure sum( m: integer); var i: integer; begin s: =0; for i: =0 to m-1 do s: =s+a[i]; end; begin clrscr; write('введите кол-во элементов в массиве: '); readln(n); setlength(a, n); input; clrscr; print; write('сколько элементов суммировать: '); readln(m); sum(m); writeln; writeln('сумма ',m,' элементов равна: ', s); sum(n); writeln; writeln('сумма всех ',n,' элементов массива равна: ', s); writeln ('среднее арифмитическое всех элементов равно ', s/n); readkey; end.
ermekbaevadinara
ermekbaevadinara
4,4(42 оценок)
Ответ: частота процессора 

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

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

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

Caktus Image

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

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

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

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

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

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

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

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

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

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

GTP TOP NEWS