a:array[1..n] of integer; //создали одномерный массив длинной 5 b:array[1..n,1..n] of integer; //создали двумерный массив 5х5 i,j:integer; //i,j- счетчик
begin
for i:=1 to n do for j:=1 to n do b[i,j]:=random(10)+1; {задали массив случайными числами в диапазоне от 1 до 10}
for i:=1 to n do begin a[i]:=b[i,i]; //присваиваем i-ому элементу массива элемент i-i. end; //То есть 1-ому, 1-1, 2-ому 2-2. Это и есть главная диагональ.
{вывод двумерного массива на всякий случай: for i:=1 to n do begin for j:=1 to n do begin write(b[i,j],' '); end; writeln(""); end; }
ОС Windows более распространена, потому что небольшая компания Майкрософт вовремя и удачно предложила свою новую операционную систему DOS гиганту IBM, который всё же решил снизойти до рынка Персональных Компьютеров и создал в итоге целую архитектуру IBM PC, открытую и общедоступную. Т.е. компьютеры по таким стандартам, периферию и ПО к ним могла делать любая фирма, а не только IBM. В то время это было необычно. "IBM PC совместимых" компьютеров стало ооочень много в мире и практически на всех стояла MS-DOS, а затем и Windows.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку