помогите скочно пожалуйста

[dvoeshnik]

народ, у меня экзамен через 11 часов, а я никак не могу сделать последнии две задачи, помогите плиииз!
1)Даны два массива А и В размерностью 6 элементов. В первом массиве находятся фамилии, а во втором количество баллов. Отсортировать оба массива таким образом, чтобы во втором массиве баллы располагались от большего к меньшему.
2)Дана квадратная матрица А 4 на 4. Найти сумму произведения элементов матрицы, след матрицы и след побочной матрицы.
За рание огромное спасибо!!!

[Stilet]

Язык бы хоть указал...

[Карась]

Во второй задаче условие не компилируется мозгом.
В первой задаче любая сортировка.

[ЕвгениуS]

Сообщение от Карась

В первой задаче любая сортировка.

У меня программирование только год в институте..
Объясните пожалуйста, как делается сортировка? В Паскале.

[Stilet]

Вот например: http://programmersforum.ru/showthrea...F0%EE%E2%EA%E0
И вот: http://programmersforum.ru/showthrea...F0%EE%E2%EA%E0

Вообще поиском по ветке с паскалем и в студентах много примеров можно найти по сортировке.

[puporev]

В этой задаче выполнена обменная сортировка методом пузырька по убыванию. В умных книжках описано десятка 2 сортировок, почитайте.

uses crt;
const n=6;
var a:array[1..n] of byte; //массив баллов
    s:array[1..n] of string[20];  //массив фамилий
    i,j,x:byte;
    st:string[20];
begin
clrscr;
writeln('Spisok do sortirovki:');
for i:=1 to n do
readln(s[i]);   //вводим столбиком 6 фамилий
for i:=1 to n do
   begin
     gotoxy(12,i+1); //ставим курсор на 12 позицию(10 под фамилию) начиная со второй строки
     readln(a[i]); //вводим столбиком баллы
   end;
writeln;
writeln('Spisok posle sortirovki:');//сортировка
for i:=1 to n-1 do
for j:=1 to n-1 do
if a[j]<a[j+1] then
   begin
    x:=a[j];a[j]:=a[j+1];a[j+1]:=x;//сортируем баллы
    st:=s[j];s[j]:=s[j+1];s[j+1]:=st; //сортируем фамилии соответственно баллам
   end;
for i:=1 to n do
writeln(s[i]);  //выводим столбиком фамилии
for i:=1 to n do
   begin
     gotoxy(12,i+9); //курсор опять в поз.12 начиная с 10 строки
     writeln(a[i]);
   end;
readln
end.

[puporev]

Учитывая, что след матрицы это всего лишь сумма элементов ее главной диагонали, а второй след то же, но побочной, да еще видимо нужно найти сумму и произведение элементов матрицы, задача решается так:

uses crt;
const n=4;
var a:array[1..n,1..n] of integer;
    i,j,sum,sg,sp:integer;
    p:longint;
begin
clrscr;
randomize;
writeln('Matrica:');
for i:=1 to n do
  begin
    for j:=1 to n do
      begin
       a[i,j]:=random(5)+1;
       write(a[i,j]:3);
      end;
    writeln;
  end;
p:=1;sg:=0;sp:=0;sum:=0;
for i:=1 to n do
   begin
     sg:=sg+a[i,i]; //след главной
     sp:=sp+a[i,n-i+1]; //след побочной
     for j:=1 to n do
       begin
        sum:=sum+a[i,j];  //сумма
        p:=p*a[i,j];  //произведение
       end;
   end;
writeln('Summa=',sum,' Proizvedenie=',p,' Sled glavnoj=',sg,' Sled pobochnoj=',sp);
readln
end.

[dvoeshnik]

puporev, огромное спасибо, надеюсь пойдет, шучу, обязательно пойдет, спс, удачи по жизни!!!!!!!!