Заполнить произвольный массив размером nxn (n< 10) по следующему правилу: 10000 02000 00300 00020 00001 буду : )

👇

Ответ:

ира8800

10.12.2020

Const n=9;
var a:array[1..n,1..n] of integer;
i,j:integer;
begin
for i:=1 to n do for j:=1 to n do a[i,j]:=0;
for i:=1 to n do a[i,i]:=n div 2+n mod 2-abs(n div 2+n mod 2-i);
for i:=1 to n do begin for j:=1 to n do write(a[i,j]); writeln end
end.

4,8(90 оценок)

Открыть все ответы

Ответ:

helpmeplease24

10.12.2020

//PascalABC.NET (версия 3.1, сборка 1196 от 09.03.2016)
function
Transpose(a: array[,] of integer): array[,] of integer;
//Поворот на 90гр по часовой стрелке
begin
var m := Length(a, 0);
var n := Length(a, 1);
Result := new integer[n, m];
for var i := 0 to n-1 do begin
    for var j := 0 to m-1 do
      Result[i, j] := a[m-1-j, i];
end;
end;

begin
var n := ReadInteger('Введите n:');
//Заполнение матрицы NxN сл. числами и вывод на экран
var a :=MatrixRandom(n, n);
for var i:=0 to n-1 do begin
    for var j:=0 to n-1 do
      Print(a[i,j]);
    println;
    end;
     println;

Println('поворот влево на 90 гр');
var b := Transpose(a);
b:=Transpose(b);
b:=Transpose(b);
for var i:=0 to n-1 do begin
    for var j:=0 to n-1 do
      Print(b[i,j]);
    println;
    end;
println;

Println('поворот вправо на 90гр');
b := Transpose(a);
for var i:=0 to n-1 do begin
    for var j:=0 to n-1 do
      Print(b[i,j]);
    println;
    end;
println;

Println('поворот на 180 гр');
b := Transpose(a);
b := Transpose(b);
for var i:=0 to n-1 do begin
    for var j:=0 to n-1 do
      Print(b[i,j]);
    println;
    end;
end.

4,5(86 оценок)

Ответ:

lerka160

10.12.2020

Дефрагментация диска.

Жёсткий диск компьютера содержит записанные файлы, деля их на фрагменты, и храня в отдельных кластерах, иногда располагающихся далеко друг от друга.

Фрагментация — это разделение файла и разбрасывание его элементов по разным кластерам. Поэтому когда файлов становится много, компьютер начинает работать медленно. Для решения этой проблемы существуют программы для дефрагментации диска. Дефрагментация — это процесс собирания фрагментов файла в соседних кластерах. Дефрагментацию жёстких дисков можно выполнить в операционной системе Windows. Для этого нужно открыть меню «свойства» жёсткого диска и на вкладке «Сервис» нажать кнопку «Выполнить дефрагментацию». Сначала программа выполнит анализ дискового пространство. Дефрагментация может длиться довольно долго.

Также дефрагментацию можно сделать в бесплатной программе Auslogics Disk Defrag Free

Архивация файлов.

Архивацию файлов можно выполнить в программах WinRAR и 7ZIP.

Эти программы нужны, чтобы распаковать архивированные файлы и сжать большие по объёму. А также множество больших файлов превратить в один небольшой файл — архив.

Эти программы нужны, чтобы сэкономить дисковое пространство. Большие и редкоиспользуемые файлы можно сжать и хранить в виде архива.

4,8(41 оценок)

Это интересно:

26.01.2022

Как стать центром внимания: справляемся с ролью новой девушки в старших классах...

Кулинария-и-гостеприимство

20.11.2022

Как заморозить овощи: полезные советы и рекомендации...

Мир-работы

30.04.2023

Как получить работу мечты: 5 шагов к успеху...

Хобби-и-рукоделие