Купить футболку фсб @ Офис и работа

***У меня кармане крыса -Я нашел ее лесу.Она дохлая лысая,Я домой ее несу.Посажу крысу банку,Дам мясца ей мисочке...Я люблю ее, засранку,И притом физически.верность собственной невестеХраню сухом, прохладном месте...***Как увижу МаринкуСердце бьется об ширинку!***Утро таяло тумане,Шелестели камыши.Грациозные как ланиШли по полю алкаши.***Пришла весна пора любвиИ как-то яростном экстазеОн целовал ее следыНа не остывшем унитазе.Два пионера на грязной фанерке,Делали вилкой аборт пионерке,Рядом стоял виноватый вожатый,Вынутый плод добивая лопатой.***Сволоку тебя за ногиНа обочину кусты.Не е##ть же на дорогеКоролеву красоты. Встану утром рано,выпью чашку ртути -и пойду подохнув этом купить футболку фсб интституте...Вот настала осень,Нет уже листов.глядят унылоБл##и из кустов.***В лесу раздавался топор дровосекаДровосек топором гонял гомосекаУстал, обессилел, упал дровосекС улыбкой залез на него гомосек. 1. Нет такой чистой светлой мысли, которую бы русский человек не смог бывыразить грязной матерной форме.2.

чет я сам нефига непонял(((Ты немог бы написать новый код полностью.. насчет новый код полностью мы разговаривали вчера;) ну тчто не понятно в конце каждой строки комментарий. а код который ты выложил избыточен. 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]; вывели.

Хостинг от uCoz