Найти среднее арифметическое значение элементов второго столбца матрицы

Категория: Delphi/Pascal
2011-09-04 16:01:12
code: #pascal
  1. program Project5;
  2.  Var
  3.  i,j:Integer;
  4.  a : array [1..12,1..12]of Integer;
  5.  sum, count: real;
  6.  begin
  7.   for i:=1 to 12 do
  8.   begin
  9.    for j:=1 to 12 do
  10.     begin a[i,j]:= Random(9);
  11.      Writeln(a[i,j],' ');
  12.     end;
  13.    writeln;
  14.    end;
  15.   sum:=0;
  16.   for i:=1 to 12 do
  17.   sum:=sum+a[i,2];
  18.   count:=sum/12;
  19.   writeln(count:1:4);
  20.   readln;
  21.  end.
Поделиться:

Похожие статьи:

теги: матрица, консольное приложение, студенты, массив, двумерный массив, средне арифметическое