uses crt;
type matr=array[1..20,1..20] of integer;
proc=procedure(m:matr;n:byte);
procedure Glav(m:matr;n:byte);
var i:byte;
begin
writeln('Главная диагональ :');
for i:=1 to n do
write(m[i,i]:3,' ');
writeln;
writeln;
end;
procedure Vyvod(m:matr;Gl:proc;n:byte);
begin
Gl(m,n);
end;
var a:matr;
n,i,j:byte;
begin
clrscr;
randomize;
repeat
write('Размер матрицы до 20 n=');
readln(n);
until n in [1..20];
writeln('Исходная матрица:');
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=random(40)+10;
write(a[i,j]:3,' ');
end;
writeln;
end;
writeln;
Vyvod(a,Glav,n);
readln
end.
Ну как сказать, ошибка в операционной системе (или же повреждение файловой системы ОС). Что может
1. Попробуй перезагрузить ПК и выполнить восстановление системы до последней сохраненной даты.
Для восстановления системы необходимо проделать несколько простых шагов:
перезагружаем компьютер, при загрузке системы нажимаем "F8";
P.S. Не на всех версиях BIOS именно эта клавиша иногда ""F1" или же "Tab";
выбираем "Устранение неполадок";
затем "Восстановление системы" и "Выбор точки восстановления";
нажимаем на "Далее" пока не появится "Готово";
Перезагружаем компьютер, в меню выбираем "Загрузку с последней удачной конфигурацией"
2. Переустановка ОС.
Но это уже крайний случай если первый вариант не
Объяснение:
1.- 67 Мбайт
2.- 20 Мбайт
3.- 0,00004005 Мбайт
4.- 2048 Мбайт