Есть ответ 👍

Взаданном массиве вычислить среднее арифметическое значение элемента массива. зарание составить программу )

127
456
Посмотреть ответы 2

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

ttommy
4,8(34 оценок)

Const n=10;   var a: array[1..n] of integer; i,s: integer;   begin randomize; writeln('массив a: '); for i: =1 to n do   begin   a[i]: =random(51)-25;   write(a[i]: 4);   end; writeln; s: =0; for i: =1 to n do s: =s+a[i]; writeln('среднее арифметическое элементов массива = ',s/n); end. пример: массив a:     4 -25   -8   17   1   15 -23 -13   16 -22 среднее арифметическое элементов массива = -3.8

//pascalabc.net 3.2 сборка 1318 const   n=4; var   f: file of char;   i,j,counter,filelen: integer;   s: string;   val: char;   ar: array[1..n] of integer;   coms: array[1..n] of integer;   begin for i: =1 to n do coms[i]: =i; assign(f,'input.csv'); reset(f); i: =1;     //столбец матрицы counter: =1;     //количество прочитанных элементов filelen: =filesize(f); //количество элементов в файле (включая разделители) read(f,val); //на случай, если первая строка пуста repeat    while (ord(val)< > 10) and (ord(val)< > 13) do //каждая строка заканчивается символами 10 и 13, а элементы разделяются ;     begin     if (val< > '; ') and (ord(val)< > 10) and (ord(val)< > 13) then       begin         ar[i]+=strtoint(val); //вводим значение из ячейки в переменную суммы         read(f,val); //cчитываем следующее значение         inc(counter); //увеличиваем количество прочитанных       end       else         begin           read(f,val);     //пропускаем разделитель           inc(counter);         end;     end;     if (ord(val)=10) and (counter< filelen) then   //в конце каждой строки стоят символы с 10 и 13, пропускаем их     begin       read(f,val);       inc(counter);     end;     if (ord(val)=13) and (counter< filelen) then //когда дошли до конца строки     begin       inc(i);         read(f,val);   //читаем с новой строки       inc(counter);     end; until(counter=filelen); //читаем пока количество элементов в файле не сравняется с количеством прочитанных close(f); for i: =1 to n-1 do     //когда лень писать быструю сортировку   for j: =i+1 to n do     if ar[i]< ar[j] then       begin         counter: =ar[i];         ar[i]: =ar[j];         ar[j]: =counter;         counter: =coms[i];         coms[i]: =coms[j];         coms[j]: =counter;       end; for i: =1 to n do writeln(i,'st place-',coms[i],' command -',ar[i],' points'); end.

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

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

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

Caktus Image

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

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

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

    Проект находиться на стадии тестирования и все услуги бесплатны.
  • Могу ли я использовать otvet5GPT в школе?

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

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

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

GTP TOP NEWS