Рисунок на майке своими руками ~ Прикольные рисунки

program n1;vara,b,c:array [1..10,1..10] of integer;n,i,j,k,l:integer;beginrandomize;writeLn(' Vvedite n ');readLn(n);l :=1;k :=1;For i :=1 to n dobeginfor j :=1 to n dobegin a[i , j] := random(100) ;write(a[i , j]);write(' ')end;writeLn;max:=a[1,1]; взяли за макс элемент первыйmesto:=0; место элемента неизвестноfor i:=1 to n do т.к условие нахожд на главной диагонали равенство индексов то влож цикл можно не испif a[i,i]>max then begin если элемент больше макс то делаем его максимальным и запоминаем местоmax:=a[i,i]; mesto:=i;end;writeln(max,a[mesto,mesto]; выводимmin:=a[1,n+1-1] берем за мин элем на побочной диаг первый эл-т1,n+1-1 - условие нахожд на побочн диагmesto:=0; for i:=1 to n do также пробегаемсяif a[i,n+1-i]<min then begin если меньше минимального то запоминаемmin:=a[i,n+1-i]; mesto:=i;end;writeln(min,a[mesto,n=1-mesto]; вывели. Я хочу щоб всі хто приєднуєця до нашої групи щоб ніколи її непокидав. Олега MEN.... на всю жизнь!!!

---

Ролик о рисунок на майке своими руками