program zadanie_4;
uses crt;
type matrix=array[1..6,1..6] of real;
var a,b:matrix;
    i,j,z:integer;
    byk: string [5] ;
    SRA,s,x:real;
    ch:char;
label
L1,L2;
begin
 clrscr;
   gotoxy(18,6);
   writeln('Вашему вниманию представленна программа');
   gotoxy(17,7);
   writeln('по поиску среднего арифметического числа ');
   gotoxy(25,8);
   writeln('в квадратной матрице.');
   gotoxy(26,10);
   textcolor(68);
   writeln('ЗАДАЧА ПРОГРАММЫ!!!');
   gotoxy(20,11);
   textcolor(white);
   writeln('ПОСТРОИТЬ КВАДРАТНУЮ МАТРИЦУ "А"');
   gotoxy(16,12);
   writeln('НАЙТИ СРЕДНЕЕ АРИФМЕТИЧЕСКОЕ В МАТРИЦЕ "А"');
   gotoxy(20,13);
   textcolor(red);
   writeln('ПОСТРОИТЬ МАТРИЦУ "Б"*0.1*SRA');
   gotoxy(16,14);
   writeln('ВЫВЕСТИ ИСХОДНУЮ МАТРИЦУ И ПОЛУЧЕННУЮ РЯДОМ');
   textcolor(2);
   gotoxy(42,16);
   writeln('Программу составила');
   gotoxy(42,17);
   writeln('студентка МГУ ПС группы ЭИЭ - 112');
   gotoxy(42,18);
   writeln('ИВАНОВА АННА');
   gotoxy(28,22);
   textcolor(yellow);
   writeln('Москва 1.12.2009');
   gotoxy(18,24);
   textcolor(7);
   writeln('Нажмите любую клавишу для продолжения!!!');
 ch:=readkey;
  L1:
  begin
   clrscr;
   writeln('ВВЕДИТЕ ЭЛЕМЕНТЫ МАТРИЦЫ!!!');
  writeln;
   SRA:=0;
    for i:=1 to 6 do
       for j:=1 to 6 do
       begin
    repeat
       write('a[',i,',',j,']>');
          readln(byk);
	  val(byk,a[i,j],z);
          textcolor(12);
		  If z<>0 then
	  writeln('Неверно задан элемент матрицы! Повторите ввод элемента');
          textcolor(white);
    Until z=0;

   SRA:=SRA+a[i,j];
      end;
   SRA:=SRA/36;
	 for i:=1 to 6 do
   for j:=1 to 6 do
   b[i,j]:=a[i,j]*0.1*SRA;
  clrscr;
   writeln('Среднее арифметическое =',sra:10:2);
   writeln;
   writeln('                           "МАТРИЦА А"');
   writeln;
   for i:=1 to 6 do
begin
      for j:=1 to 6 do
       write(a[i,j]:10:1);
      writeln;
    {  writeln;}
  end;
      writeln;
   writeln('                           "МАТРИЦА Б"');
       writeln;
    for i:=1 to 6 do

    begin
      for j:=1 to 6 do write(b[i,j]:10:1);
      writeln;
  end;

 gotoxy(20,24);
 writeln('Хотите ли продолжить? Y-да, N-нет');
 l2:
  case readkey of
   #89: goto l1;
    #121: goto l1;
     #78: exit;
      #110:exit;
  end;
   goto l2;
 end;
 end.