Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > [Pascal] среднее арифметическое

Автор: hanter 27.1.2007, 09:25

Дана матрица А(6,9) заполнена случайным образом. Найти среднее арифметическое всех её строк и вывести их в виде: строка 1- ср.арифметическое1=
строка 2- ср.арифметическое S=

Автор: Rodman 27.1.2007, 13:17

Код


Uses crt;
const n=6;
         m=9;
var a:array[1..n,1..m] of integer;
   i,j,sr:integer;
BEGIN
clrscr;
randomize;
for i:=1 to n do
begin
 sr:=0;
 for j:=1 to m do
  begin
   a[i,j]:=random(9)+1;
   sr:=sr+a[i,j];
  end;
  writeln(i,' stroka with sr = ',sr/m);
end;
 readln;
END.