Найти среднее арифметическое элементов массива - Turbo Pascal

  1. Условие задачи: Дан двумерный массив А размерностью NхN, элементы массива – случайные целые числа из диапазона (-30..30). N задается пользователем и может быть равно значению от 5 до 9 включительно. Необходимо сформировать из элементов массива А одномерный массив В, в который поместить все элементы, удовлетворяющие заданному условию. Вычислить: • Сумму элементов массива А • Сумму элементов массива В • Среднее арифметическое элементов массива А • Среднее арифметическое элементов массива В Вывести на экран исходный массив А, полученный массив B и вычисленные значения. условие отбора элемента А: Элементы, которые делятся на 5Добавлено через 20 минут никак не дружу с массивами!.. а зачет нужен, помогите кто-нибудь, буду премного благодарна


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.


Похожие ответы
  1. Пусть дана вещественная матрица размером n*m. Найдите среднее арифметическое наибольшего и наименьшего значений её элементов, расположенных ниже главной диагонали.- это условие. Напиши пожалуйста программу!

  1. Подскажите в чем ошибка? Матрица в файле txt 0 10 17 8 0 12 19 10 0 1 0 7 0 21 17 1 0 0 3 11 0 8 0 0 0 16 3 5 0 7 3 16 0 4 0 12 0 11 3 4 0 10 19 21 0 5 0 10 0

  1. В массиве а1, а2, ..., а30 найти среднее арифметическое всех отрицательных элементов, а из оставшихся сформировать новый массив bk. Буду очень благодарен.

  1. помогите решить задачу. В массиве X(n,M), найти среднее арифметическое тех элементов, значения которых не превышают заданную величину А. P.S. можно по проще как-нибудь.

  1. Помогите написать программу, которая вычисляет среднее арифметическое ненулевых элементов введенного с клавиатуры массива целых чисел, только чтоб в одной строке... Рекамендуемый вид экрана: Введите элементы массива (10 целых чисел) в одной строке и нажмите . -> 23 0 45 -5 12 0 -2 30 0 64 Сумма элементов массива: 184 Количество ненулевых элементов: 7 Среднее арифметическое ненулевых элементов: 23.86

  1. найдите среднее арифметическое элементов заданного массива из 8 целых чисел и определите сколько элементов данного массива больше среднего

  1. Дан вещественный массив А[4][3]. Найти среднее арифметическое значение положительных элементов массива А. Вывести результат на экран.

  1. Дан одномерный массив латинских букв. Отсортировать их методом выбора в порядке убывания. Вычислить среднее арифметическое кодов элементов отсортированного массива, имеющих индекс кратный трем. Вывести на экран отсортированный массив и вычисленное значение. Помогите решить пожалуйста!!! Срочно,могу отблагодарить! Заранее спасибо!

  1. Здравствуйте, ситуация такая: имеется решенная задача на листочке, нужно написать на паскале, но нам его не объясняли(а объясняли на фортране, собственно на нем то я и решил ее). Собственно вот сам вопрос задачи: Подсчитать как изменится средне арифметическое элементов матрицы, если во всех столбцах с номерами большими, чем номер столбца с макс. количеством отрицательных элементов, заменить все отр. элементы их модулями! Выкладываю картинки с хостинга ниже, а также код фортрана, может кто-то глянет, что не понятно будет) Сам решать пробовал, до сих пор сижу и читаю, остановился пока на 1 подпрограмме, может у вас быстрее получится)Fortran1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 dimension a(5,5), x(5), c(5) real a,p,t,c integer i,j,x logical b data a /2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26 / write(*,16) ((a(i,j),j=1,5),i=1,5) 16 format (2x, 'a=', 5(f5.1)) write(*,*) 'c' read(*,*) c write(*,*) 'P,T(Pc2)) then     flag=.false.     end if     i=i+1     end do     end     subroutine pp2(a1,n,x1)     dimension a1(n,n), x1(n)     real a1     integer x1     do i=1,5,1       x1(i)=0       end do  do j=1,5,1    do i=1,5,1      x1(j)=x1(j) +a1(j,i)      end do      end do end Спасибо вам огромное заранее, даже за то, что прочитали это)

  1. В функцию передаётся строка S, в ней есть и пробелы и слова. Пробелы могут быть в любом месте. Есть слова в которых последний символ это цифра . Напишите функцию, которая будет считать среднее арифметическое этих цифр. Строка 5zxcv yuio9 sdfgg poi7 rgn 9876 8 Ответ 7.5 не могу понять, почему считает неверно, помогите, пожалуйста.