Pascal (массивы)

[4otenado]

помогите пож-та написать :
в матрице F(7х7) упорядочить элементы главной диагонали в порядке возрастания. Определить сумму элементов, лежащих под главной диагональю.
program lab2;
type mas=array[1..7] of real;
var a:mas;
i,j:integer;
sum:real;
begin
for i:=1 to 6 do
for j:=i+1 to 7 do
if a[i,i]>a[j,j] then
begin
temp:=a[i,i];
a[i,i]:=a[j,j];
a[j,j]:=temp;
end;
sum:=0;
for i:=2 to 7 do
for j:=1 to i-1 do
sum:=sum+a[i,j];
end.

[Greblin]

Ну и чего у Вас не получается? В коде две ошибки - неправильно задана матрица

type mas=array[1..7, 1..7] of real;

и не объявлена переменная temp. Исправляете их и добавляете ввод-вывод. По логике вроде ошибок нет

[4otenado]

Сообщение от 4otenado

помогите пож-та написать :
в матрице F(7х7) упорядочить элементы главной диагонали в порядке возрастания. Определить сумму элементов, лежащих под главной диагональю.
program lab2;
type mas=array[1..7,1..7] of real;
var a:mas;
i,j:integer;
sum,temp:real;
begin
for i:=1 to 6 do
for j:=i+1 to 7 do
if a[i,i]>a[j,j] then
begin
temp:=a[i,i];
a[i,i]:=a[j,j];
a[j,j]:=temp;
end;
sum:=0;
for i:=2 to 7 do
for j:=1 to i-1 do
sum:=sum+a[i,j];
end.

исправил, но куда ввод и вывод - не понял

[eoln]

type mas=array[1..7,1..7] of real;
var a:mas;
i,j:integer;
sum,temp:real;
begin
for i := 1 to 7 do
begin
  for j := 1 to 7 do
  begin
    a[i, j] := random(10);
    write(a[i, j]:3:0)
  end;
  writeln
end;

for i:=1 to 6 do
for j:=i+1 to 7 do
if a[i,i]>a[j,j] then
begin
temp:=a[i,i];
a[i,i]:=a[j,j];
a[j,j]:=temp;
end;
sum:=0;
for i:=2 to 7 do
for j:=1 to i-1 do
sum:=sum+a[i,j];

writeln('summa = ', sum:0:2);
for i := 1 to 7 do
begin
  for j := 1 to 7 do write(a[i, j]:3:0);
  writeln
end;
readln
end.

[4otenado]

Сообщение от eoln

type mas=array[1..7,1..7] of real;
var a:mas;
i,j:integer;
sum,temp:real;
begin
for i := 1 to 7 do
begin
  for j := 1 to 7 do
  begin
    a[i, j] := random(10);
    write(a[i, j]:3:0)
  end;
  writeln
end;

for i:=1 to 6 do
for j:=i+1 to 7 do
if a[i,i]>a[j,j] then
begin
temp:=a[i,i];
a[i,i]:=a[j,j];
a[j,j]:=temp;
end;
sum:=0;
for i:=2 to 7 do
for j:=1 to i-1 do
sum:=sum+a[i,j];

writeln('summa = ', sum:0:2);
for i := 1 to 7 do
begin
  for j := 1 to 7 do write(a[i, j]:3:0);
  writeln
end;
readln
end.

спсибо.



помогите пож-та сделать из этой задачи:
определить сумму элементов над побочной диагональю.
нужно прямой сейчас, сижу в комп. классе защищаю задачу.

[4otenado]

program lab2;
uses crt;
type mas=array[1..7,1..7] of real;
var a:mas;
i,j:integer;
sum,temp:real;
begin
clrscr;
randomize;
writeln (' ');
for i:=1 to 7 do
begin
for j:=1 to 7 do
begin
a[i,j]:=-10+random(20);
write(a[i,j]:3:0)
end;
writeln ('');
writeln
end;
for i:=1 to 6 do
for j:=i+1 to 7 do
if a[i,i]>a[j,j] then
begin
temp:=a[i,i];
a[i,i]:=a[j,j];
a[j,j]:=temp;
end;
writeln (' ');
sum:=0;
for i:= 2 to 7 do
for j:= 1 to i-1 do
sum:= sum+a[i,j];
writeln('summa nad pobo4noi diagonalu =',sum:0:0);
writeln (' ');
for i:= 1 to 7 do
begin
writeln ('');
for j:= 1 to 7 do write(a[i,j]:3:0);
writeln
end;
readln
end.
end.

[4otenado]

вот, погите пож-та определить сумму над побочной диагональю.

[Базиля]

а чем проблема ?

for i:= 2 to 7 do
for j:= 1 to i-1 do
sum:= sum+a[i,j];

это разве не нахождение суммы?
P.S. в конце end. лишний, возможно описка, но все-таки

[4otenado]

[QUOTE=Базиля;436805]а чем проблема ?

for i:= 2 to 7 do
for j:= 1 to i-1 do
sum:= sum+a[i,j];

это разве не нахождение суммы?


это сумма под главной диагональю, а мне нужно над побочной.

[eoln]

Тех. поддержка, блин...

for i:=1 to 6 do
for j:=1 to 7-i do
sum:=sum+a[i,j];