Найти среднее арифметическое и среднее геометрическое положительных элементов матрицы - Turbo Pascal

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


textual

Код:

Uses CRT;
const n=3;
type  matr = array[1..n,1..n] of integer;
Var X       : matr;
    i,j,k   : byte;
    s,p     :real;
Begin
Writeln('vvesti X(3,3):');
s:=0;
k:=0;
p:=1;
For i:=1 to 3 do
For j:=1 to 3 do
 begin
  write('X[',i,',',j,']=');
  readln(X[i,j]);
  if X[i,j]>0 then
   begin
    k:=k+1;
    s:=s+X[i,j];
    p:=p*X[i,j];
   end;
 end;
clrscr;
writeln('Matrica:');
for i:=1 to n do
 begin
  for j:=1 to n do
  write(X[i,j]:5);
  writeln
 end;
if k=0 then write('Polozitelnyh net!')
else
 begin
  s:=s/k;
  p:=exp(ln(p)/k);
  writeln('seredne arefmetrichne =',s:5:2);
  writeln('seredne geometrichne =',p:5:2);
 end;
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 не могу понять, почему считает неверно, помогите, пожалуйста.