Найти среднее арифметическое элементов массива - 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, которая ожидает ввода пользователя.

Оцени полезность:

5   голосов , оценка 3.4 из 5
Похожие ответы