Ребят помогите с экзаменом Delphi

[NoobInDelphi]

Задача 1

задана таблица температур 3-х летних месяцев, определить какой месяц был самым жарким.

Задача 2

Задана таблица результатов по бегу среди 30-ти участников, требуеться определить номера участников занявшие 1,2,3 место

3адача 3

Найти минимальный элемент среди элементов главной диагонали.

Задача 4

Задан Двумерный массив. Найти сумму эл-тов каждого четного столбца этого массива

3адача 5

Массив - Квадратная Матрица. Транспонировать эту матрицу.

Заранее очень благодарю.

[Chudo4258]

3адача 3

Найти минимальный элемент среди элементов главной диагонали.

min:=A[1,1];
for i:=1 to n do
 for j:=1 to n do
  if (i=j) and (A[i,j]<min) then min:=A[i,j]

Задача 4

Задан Двумерный массив. Найти сумму эл-тов каждого четного столбца этого массива

for j:=1 to n do begin
 S:=0;
 if (j mod 2 = 0) then
  for i:=1 to n do
      S:=S+A[i,j];
 Writeln(S);
end;

3адача 5

Массив - Квадратная Матрица. Транспонировать эту матрицу.

Заранее очень благодарю.

\

for i:=1 to n do
 for j:=1 to n do
 if i<j then
  begin
   x:=A[i,j];
   A[i,j]:=A[j,i];
   A[j,i]:=x;
  end;

[Dirt]

Задача 2

Задана таблица результатов по бегу среди 30-ти участников, требуеться определить номера участников занявшие 1,2,3 место

Это на паскале))) но суть таже(Перепутал))))

uses crt;
var
van,too,tree,i,nomvan,nomtoo,nomtree:integer;
a:array [1..30] of integer;
begin clrscr;
for i:=1 to 30 do begin
write('Vedite Rezultat po begu ',i,' uchastnika =');
readln(a[i]);
end;
van:=a[1];
nomvan:=1;
too:=0;
tree:=0;
for i:=2 to 30 do begin
if van<a[i] then begin
van:=a[i];
nomvan:=i;
end;
if (too<a[i]) and (a[i]<van)
then begin
too:=a[i];
nomtoo:=i;
end;
if (tree<a[i]) and (a[i]<too)
then begin
tree:=a[i];
nomtree:=i;
end;
end;
writeln('-----------');
writeln('Nomer uchastnika = ',nomvan,', ochki = ',van);
writeln('Nomer uchastnika = ',nomtoo,', ochki = ',too);
writeln('Nomer uchastnika = ',nomtree,', ochki = ',tree);
readkey;
end.

[NoobInDelphi]

Спасиб парни, вот только по поводу 2-ой невкурил...

[Veselyn]

Первую задачу можно сделать по такому принцепу

                       .....................
Var
       t1, t2, t3, srd1, srd2, srd3, i, j, u : integer;
                       ....................
t1:=0;
    for i:=1 to 30 do begin
      readln (t1.[i]);
          t1:=t1+t1.[i];
    end;
 srd1:=t1/30;
t2:=0;
      for j:=1 to 31 do begin 
        readln (t2.[j]);
             t2:=t2+t2.[j];
      end;
 srd2:=t2/31;
t3:=0;
         for u:=1 to 31 do begin 
           readln (t3.[u]);
              t3:=t3+t3.[u];
         end;
 srd3:=t3/31;

Дальше сравниваеш и выводиш максимальное среди srdХ