Найти ошибку!нуна Опции

[lsdy]

М

Пользуйся тегами и сделай что-нибудь с выводом подсказок, например напиши их латинскими буквами

Необходимо расставить строки так чтоб элементы последнего столбца были упорядочены по возрастанию.Найти среднее арифмитическое последнего столбца

Program matr;
Uses crt;
const
max=10;

Var
 i,j,n,m,x,k:integer;
 a,b:array [1..max,1..max] of integer;
 candidat:integer;
 sum:real;
Begin
   ClrScr;
   Textcolor(6);
 Writeln('ўў(r)¤ ¬ ваЁжл ў­Ё¬ ⥫м­(r) Є(r)«ЁзҐбвў(r) бва(r)Є Ё бв(r)«Ўж(r)ў ­Ґ Ў(r)«миҐ 10 Ё Ў(r)«миҐ 0');
 repeat
   textcolor(2);
   writeln('ўўҐ¤ЁвҐ Є(r)«ЁзҐбвў(r) бва(r)Є');

   readln(n);
   writeln ('ўўҐ¤ЁвҐ Є(r)«ЁзҐбвў(r) бв(r)«Ўж(r)ў');
   readln(m);
   if (n<0) or (m<0) or (m>max )then
   writeln('vi vveli ne dopustimie zna4enija')
 until (n>0) and (n<max) and (m>0) and (m<max);

   writeln('‚ў(r)¤ ¬ ваЁжл');
   for i:=1 to n do
    for j:=1 to m do
     begin
       write ('ўўҐ¤ЁвҐ ',i,' н«Ґ¬Ґ­в ',j,'stolbca:');
       readln(a[i,j]);
       end;
       writeln('isxodnaya');
    for i:=1 to n do
    begin
     for j:=1 to m do
     write(a[i,j]:3);
     writeln;
     end;
     for j:=1 to m do
   begin
     for k:=1 to n-1 do
       for i:=m downto k+1 do
          if a[i,j]<a[i-1,j]
                then
                       begin
                       x:=a[i-1,j];
                       a[i,j]:=a[i-1,j];
                       a[i,j]:=x;
                       end;
(ошибка где то здесь но не въезжаю где)
    end;
    writeln('(r)вб(r)авЁа(r)ў ­­ п ¬ ваЁж ');
    for i:=1 to n do
    begin
     for j:=1 to m do
     write(a[i,j]:3);
     writeln;
     end;
     K:=0;
     for i:=1 to n do
     k:=k+a[i,j];
     sum:=k/n;
     write('б।­ҐҐ  аЁд¬.=',sum:0:3);
     repeat until keypressed;
     end.

Сообщение отредактировано: klem4 - 18.05.2007 9:53