Массив

uses crt;
const max=100;
var a:array [1..max]of integer;
    n,i,j,k,nmin,buf:integer;
    sr:real;
Begin
clrscr;
repeat
write('Размер массива n=');
readln(n);
until n in [1..max];
sr:=0;k:=0;
for i:=1 to n do
 begin
  write('a[',i,']=');
  readln(a[i]);
  if a[i] mod 2=0 then
   begin
    k:=k+1;{кол. четных}
    sr:=sr+a[i];{ их сумма}
   end;
 end;
if k>0 then sr:=sr/k;{их среднее}
{сортировка выбором по убыванию}
for i:=1 to n-1 do
  begin
    nmin:=i;
    for j:=i+1 to n do
    if a[j]>a[nmin] then nmin:=j;
    buf:=a[i];
    a[i]:=a[nmin];
    a[nmin]:=buf;
  end;
writeln('Упорядоченный массив: ');
for i:=1 to n do
write(a[i]:4);
writeln;
if k=0 then write('Четных элементов нет!')
else write('Среднее четных=',sr:0:2);
readln;
end.

Program Transponirovanie;
 Uses crt;
 Const
 n=6;
 var i,j:byte;
 a: array [1..n, 1..n] of integer;
 temp:integer;
begin
 clrscr; randomize;
  writeln ('Исходный массив:');
 for i:=1 to n do
   begin
    for j:=1 to n do
      begin
         a[i,j]:=random(100);
         write(a[i,j]:4);
      end;
    writeln;
   end;
 {Переворот массива относительно главной диагонали}
 for i:=1 to n do
    for j:=i to n do
      begin
      temp:=a[i,j];
       a[i,j]:=a[j,i];
       a[j,i]:=temp;
     end;
      writeln ('Перевернутый массив:');
 for i:=1 to n do
   begin
    for j:=1 to n do
      begin
         write(a[i,j]:4);
      end;
    writeln;
   end;
 readln;
end.