квадратная матрица

[Ольга123456]

1.Дана квадратная матрица В размером 10*10 .Преобразовать её к токому виду,чтобы на побочной диагонали стояли максимальные элементы всех строк.(использовать процедуру для поиска максимального элемента строки и переставлять его с диагональным в этой строке.)
2.Дан одномерный массив А размера n(n<=30).получить новый массив В,каждый элемент которого вычисляется по формуле bi=cosai+cos^2i+cos^3i+..+cosa^ni

(формула словами:б итое равно косинус а итого+косинус квадрат и+косинус куб и.......и так далее)
среда-Турбо Паскаль

[Grag]

Обращайся, может договоримся...
Контакты:
e-mail: delmas-61@mail.ru
icq: 585281783
Skype: delmas61

[Ol'ga_new]

Вот первое задание(только в виде исключения как теске :-))))))):

var a:array[1..10,1..10]of integer;{}
    i,j,k,l,max,byf:integer;
procedure findmax;
   begin
    max:=-maxint;
    l:=0;
    for j:=1 to 10 do
     if a[i][j]>max then
     begin
       max:=a[i][j];
       l:=j;
     end;
   end;
begin
{}
for i:=1 to 10 do
 begin
 for j:=1 to 10 do
 begin
 a[i][j]:=random(30)+10;
 write(a[i][j],'   ');
 end;
 writeln;
 end;

 writeln('-----------------------------------------------------');
for i:=1 to 10 do
 begin
 findmax;
 a[i][l]:=a[i][11-i];
 a[i][11-i]:=max;
 for j:=1 to 10 do
 write(a[i][j],'   ');
 writeln;
 end;
 readln;
end.

[Ольга123456]

Ol'ga_new,спасибо большое