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.