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

Вроде как-то так:
Первая.

var a:array [1..10] of integer; i:integer;
begin
randomize;
for i:=1 to 10 do
begin
a:=random(20)-10;
writeln(a);
end;
writeln;
for i:=1 to 10 do
writeln(sqr(a));
readln;
end.

Логическая операция импликация (A → B) эквивалентна (не A или B), следовательно A → не A ⇔ не A или не A ⇔ не A 

1 сєрожа
2Митя
3 Толя
4Костя
5Юра

Вчера отключили свет... Два часа провел без Интернета... Пообщался со своей семьей, оказывается, — очень приятные люди!

Пообщался с женой... Оказывается, такая приятная женщина!