Разработать паскаль-программу, вычисляющую среднее арифметическое элементов матрицы.

var

a: array [1..100,1..100] of integer;

n,m,i,j: byte;

sr: real;

sum: integer;

 

begin clrscr;

 

writeln('введи кол-во строк: ');

readln(n);

writeln('столобцов: ');

readln(m);

 

randomize;

for i: =1 to n do

  for j: =1 to m do

  a[i,j]: =random (10)+0;

 

sum: =0;

 

for i: =1 to n do

  for j: =1 to m do

  sum: =sum+a[i,j];

 

sr: =sum/(n*m);

 

writeln('среднее арифметичексое: ',sr);

readkey;

end.

 

p.s.

могу напутать с типами данных

Var      p: real;     i,n,k,s: integer; begin   writeln('введите количество учащихся');   readln(n);   k: =0;   p: =0;     for i: = 1 to n do          begin              read(s);         if s=5 then k: =k+1;           p: =p+s;         end;   write('средний ',p/n,' количество отличных оценок ',k) end.

Перевод делается отдельно для целой и дробной части числа. 1) переводим целую часть числа: для этого делим её нацело (т.е. вычисляем частное и остаток) на основание желаемой системы (на 8): 32 / 8 = 4 (и 0 в остатке) продолжим деление для частного (4) 4 / 8 = 0 (и 4 в остатке) далее делить не чего, т.к. частное равно нулю из полученных остатков составляем восьмеричное число 40₈  (это целая часть нашего числа в восьмеричной системе счисления). 2) переводим дробную часть числа: для этого умножаем её на основание желаемой системы (на 8): 0,25 * 8 = 2 если бы ответ содержал дробную часть, то мы бы продолжили умножать дробную часть, на каждом шагу отделяя её от целой части но, т.к. у нас результат умножения не содержит дробной части, то мы составляем полученные целые части ответов (у нас это цифра 2), и записываем полученный результат после десятичной запятой:   0,2₈ (это и есть дробная часть в восьмеричной системе счисления) 3) соединяем полученные целую и дробную часть вместе: ответ: 40,2₈