Всистеме программирования abcpascal наберите текст для решения : составьте программу, подсчитывающую среднее арифметическое 10 элементов целочисленного массива. массив заполнить случайными элементами в диапазоне 0-50, вывести на экран с комментариями.

286

450

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

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

tanya2119286

Информатика

4,5(72 оценок)

// PascalABC.NET

begin

var m := ReadInteger('m =');

var K := MatrRandom(m, m, -99, 99);

K.Println;

var b := new integer[m * (m - 1) div 2];

var l := 0;

for var i := 0 to m - 2 do

for var j := i + 1 to m - 1 do

begin

b[l] := K[i, j];

Inc(l)

end;

b.Println.Sum.Print;

end.

150 000+ пользователей

Оформить подписку