45

Составьте программу, которая заполняет массив a [1… 10] случайными целыми числами в…

07 марта 2023

Составьте программу, которая заполняет массив a [1… 10] случайными целыми числами в диапазоне от 1 до 10 и вычисляет среднее арифметическое элементовмассива.0

категория: информатика



77

Const N=10; var a: array [1… N] of integer; i,sum: integer; sr: real; begin sr: =0; sum: =0; for i: =1 to N do begin a[i]: =random (10)+1; sum: =sum+a[i]; end; for i: =1 to N do write (a[i]: 3); writeln; sr: =sum/10; writeln ('Среднее значение элементов массива: ',sr); end.

Знаете ответ?


Есть интересный вопрос? Задайте его нашему сообществу, у нас наверняка найдется ответ!
Делитесь опытом и знаниями, зарабатывайте награды и репутацию, заводите новых интересных друзей!
Задавайте интересные вопросы, давайте качественные ответы и зарабатывайте деньги. Подробнее...