5. Дополни словами предложение (там, где есть подчёркнутые пробелы), для разрешения к использованию ресурсами компьютера. (3б) 1. Открыть папку Мой компьютер 2. Выделить диски C:, D: 3. Открыть меню нажатием правой кнопки мыши 4. Открыть раздел «» 5. Выбрать вкладку «» 6. Поставить галочку в разделе «» 7. Выбрать один из пунктов «Полный доступ», «Изменение», «Чтение»

Const n=4;
var 
a:array[1..n,1..n] of integer;
i,j,b:integer;
begin
Randomize;
writeln('Исходный массив:');
for i:=1 to n do
 begin
 for j:=1 to n do
  begin
   a[i,j]:=random(100);
   write(a[i,j]:4);
  end;
  writeln;
 end;
for i:=1 to n div 2 do
 for j:=i to n-i do
  begin
    b:=a[i,j];
    a[i,j]:=a[n-j+1,i];
    a[n-j+1,i]:=a[n-i+1,n-j+1];
    a[n-i+1,n-j+1]:=a[j,n-i+1];
    a[j,n-i+1]:=b;
  end;
writeln('Полученный массив:');
for i:=1 to n do
 begin
 for j:=1 to n do write(a[i,j]:4);
 writeln;
 end;
end.

Пример:
Исходный массив:
  57  32  69  17
  87  33  85  22
  89  80  59  13
  60  93  96  56
Полученный массив:
  60  89  87  57
  93  80  33  32
  96  59  85  69
  56  13  22  17