Найти среднее арифметическое элементов массива - Turbo Pascal (35295)
Формулировка задачи:
Условие задачи: Дан двумерный массив А размерностью NхN, элементы массива – случайные целые числа из диапазона (-30..30). N задается пользователем и может быть равно значению от 5 до 9 включительно. Необходимо сформировать из элементов массива А одномерный массив В, в который поместить все элементы, удовлетворяющие заданному условию.
Вычислить:
• Сумму элементов массива А
• Сумму элементов массива В
• Среднее арифметическое элементов массива А
• Среднее арифметическое элементов массива В
Вывести на экран исходный массив А, полученный массив B и вычисленные значения.
условие отбора элемента А: Элементы, которые делятся на 5
никак не дружу с массивами!.. а зачет нужен, помогите кто-нибудь, буду премного благодарна
Решение задачи: «Найти среднее арифметическое элементов массива»
textual
Листинг программы
uses crt; const maxn = 9; var a,b: array [1..maxn] of integer; na,nb,i,summaA,summaB: integer; srednee: real; begin clrscr; randomize; write('N = '); readln(na); nb := 0; summaA := 0; summaB := 0; write('Massiv A: '); for i := 1 to na do begin a[i] := random(61) - 30; write(a[i],' '); summaA := summaA + a[i]; if a[i] mod 5 = 0 then begin inc(nb); b[nb] := a[i]; summaB := summaB + b[nb]; end; end; writeln; write('Massiv B: '); if nb = 0 then write('pusto') else for i := 1 to nb do write(b[i],' '); writeln; writeln('Summa elementov v massive A: ',summaA); writeln('Summa elementov v massive B: ',summaB); writeln('Srednee arifmeticheskoe massiva A: ',summaA/na:0:2); writeln('Srednee arifmeticheskoe massiva B: ',summaB/nb:0:2); readkey; end.
Объяснение кода листинга программы
В данном коде используется язык программирования Turbo Pascal. Он предназначен для решения задач среднего уровня сложности. В начале кода объявляются необходимые переменные:
maxn
- максимальное количество элементов в массиве (в данном случае 9);a
,b
- массивы для хранения чисел (используются индексы от 1 доmaxn
);na
,nb
- числа, введенные пользователем (используются для заполнения массивов);summaA
,summaB
- суммы элементов массивов;srednee
- среднее арифметическое. Далее происходит инициализация переменных:randomize
- инициализация генератора случайных чисел;write
- запись информации в консоль;readln
- чтение информации из консоли. Затем происходит цикл, в котором пользователь вводит числа для заполнения массива. Если числоa[i]
делится на 5 без остатка, то увеличивается счетчикnb
, и это число записывается в массивb
. Сумма элементов массиваb
сохраняется в переменнойsummaB
. После окончания цикла выводится информация о массивахa
иb
, а также их суммах. Затем вычисляется среднее арифметическое для массиваa
иb
, и выводится на экран. Код завершается командойreadkey
, которая ожидает ввода пользователя.