Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Найти ошибку!нуна

Автор: lsdy 18.05.2007 1:09

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


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

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('ўў®¤ ¬ ваЁжл ў­Ё¬ ⥫쭮 Є®«ЁзҐбвў® бва®Є Ё бв®«Ўж®ў ­Ґ Ў®«миҐ 10 Ё Ў®«миҐ 0');
repeat
textcolor(2);
writeln('ўўҐ¤ЁвҐ Є®«ЁзҐбвў® бва®Є');

readln(n);
writeln ('ўўҐ¤ЁвҐ Є®«ЁзҐбвў® бв®«Ўж®ў');
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('‚ў®¤ ¬ ваЁжл');
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('®вб®авЁа®ў ­­ п ¬ ваЁж ');
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.