Задайте квадратный массив (n*n). Замените в заданном массиве все элементы, находящиеся на главной диагонали на максимальный элемент массива. Поверните его на 90 градусов влево.

1) по словам компании Microsoft 19 сентября 1982 года
2) Считается, что это выражение придумал Натан Ротшильд
3) Грейс Хоппер  (9 декабря 190 — 1 января 1992); Августа Ада Кинг (более известная как Ада Лавлейс) 10 декабря 1815, Лондон, Великобритания — 27 ноября 1852, Лондон
4) накопитель магнитных дисков
5) Спамом в общем случае называется незаконно распространяемая информация в любом виде, получение которой не согласовано с получателем.
Первоначально спамом назывались мясные консервы, похожие на розовый колбасный фарш. Расшифровывается SPiced hAM - перченая ветчина. Слово это придумано (и зарезервировано, методом трэйдмарка) корпорацией Hormel, у которой в 1930-е годы скопилось чудовищное количество неликвидного мяса 3-й свежести.
6) Овод Роман был популярен в Англии (до 1920 г. — 18 изданий), дореволюционной России и США, впоследствии в СССР и других социалистических странах.
7) Группа исследователей из Университета Южной Калифорнии в США провела анализ развития 60 основных технологий хранения, обработки и передачи информации за 1986-2007 годы и пришла к выводу, что суммарные запасы данных всего человечества оцениваются в 295 эксабайт (21-значное число, 1 эксабайт - 10 в 18 степени байта)

Const A:array[1..15] of string =('1. Я часто волнуюсь понапрасну.','2. Мне хочется, чтобы мои друзья подбадривали меня.','3. Я боюсь выглядеть глупцом.','4. Я беспокоюсь за свое будущее.','5. Внешний вид других куда лучше, чем мой.','6. Как жаль, что многие не понимают меня.','7. Чувствую, что я не умею как следует разговаривать с людьми.','8. Люди ждут от меня очень многого.','9. Чувствую себя скованным.','10. Мне кажется, что со мной должна случиться какая-то неприятность.','11. Меня волнует мысль о том, как люди относятся ко мне.','12. Я чувствую, что люди говорят про меня за моей спиной.','13. Я чувствую себя в безопасности.','14. Мне не с кем поделиться своими мыслями.','15. Люди не особенно интересуются моими достижениями.');
B:array[0..5] of string=('Отвечая на вопросы, указывайте, как часты для Вас перечисленные ниже состояния по такой шкале:','очень часто – ;','часто – ;','иногда – ;','редко – ;','никогда – ');
var i,n,s:integer;
begin
for i := 0 to 5 do
writeln(b[i]);writeln;
for i := 1 to 15 do begin
writeln(a[i]);Read(n);s:= s + n;end;
if s < 10 then write ('вам надо избавляться от чувства превосходства над окружающими, зазнайства, хвастовства.',s)
else if (S >= 10 ) and (S <= 30 ) then
write ('о психологической зрелости, которая проявляется прежде всего в адекватности самоотражения, то есть реалистической оценке своих сил, возможностей, внешности.',s)
else
write ('вы себя недооцениваете',s);end.