Футболки с надписью ак 47 @ Прикольные рисунки
Задачи готовые есть, но я объяснить их преподавателю не могу! Если не сложно прокомментируйте их, какая переменная что выполняет и тд.1.Дана матрица А(nxn). Написать программу, которая упорядочивает строки этой матрицы по убыванию первых элементов ее строк.Program LL;uses crt;var a:array[1..100,1..100] of integer;l,n,i,j,p:integer;beginclrscr;writeln('введите кол-во элементов');readln(n);writeln('ваша матрица');for i:=1 to n dobeginfor j:=1 to n dobegin a [i,j]:=random(100);write(a[i,j]:4);end;writelnend;for p:=1 to n dofor i:=1 to n-1 do if a[i,1]>a[i+1,1]thenfor j:=1 to n dobeginl:=a[i,j];a[i,j]:=a[i+1,j];a[i+1,j]:=l;end;writeln('полученная матрица');for i:=1 to n dobeginfor j:=1 to n dowrite(a[i,j]:4);writelnend;readlnend.
var a:array[1..100,1..100] of integer; тип описывающий матрицуслучайно сгенерированная матрицаfor i:=1 to n dobeginfor j:=1 to n dobegin a [i,j]:=random(100);write(a[i,j]:4);end;само упорядочивание в циклеfor p:=1 to n dofor i:=1 to n-1 do if a[i,1]>a[i+1,1]thenfor j:=1 to n dobeginl:=a[i,j];a[i,j]:=a[i+1,j];a[i+1,j]:=l;ГДЕif a[i,1]>a[i+1,1] - сравнение 1 элементов строк матрицl:=a[i,j];a[i,j]:=a[i+1,j];a[i+1,j]:=l; перестановка по если данный меньше следующеговыводfor i:=1 to n dobeginfor j:=1 to n dowrite(a[i,j]:4).
у мня папа захотел..=Ъ.