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

[s1avjan]

Не могу решить эти процедуры и функции!

[Arigato]

Выкладывайте что уже сделали.

[s1avjan]

uses crt;
var a:array[1..20,1..20] of integer;
    i,s,j:integer;
begin
for i:=1 to 5 do begin {создание}
for j:=1 to 5 do
a[i,j]:=random(10);
end;
 
for i:=1 to 5 do begin {вывод на экран}
for j:=1 to 5 do
write(a[i,j]:4);
writeln;
end;
 
for i:=1 to 5 do begin {условие}
for j:=1 to 5 do
if i=j then s:=s+a[i,j];
end;
 
writeln('Symma',s);
end.

Вот только нифига не работает!=(((

[ROMA2PVT]

Программа прекрасно работает.

[Stilet]

s1avjan

writeln('Symma',s);
Readln;
end.

Чтоб результаты увидеть. Или после нажми ALT+F5 это должно открыть консоль output в Турбопаскале.

[ROMA2PVT]

я прям смотрю с readln у всех проблемы.

[Stilet]

ROMA2PVT

Еще бы... преподаватели то это в методичках не описывают...
Сколько раз такие методы мне попадались...

[ROMA2PVT]

Еще бы... преподаватели то это в методичках не описывают...
Сколько раз такие методы мне попадались...

Видно преподы такие.Зато теперь он будет знать.Ну или пусть readkey; там поставит.

[Arigato]

for i:=1 to 5 do begin {условие}
for j:=1 to 5 do
if i=j then s:=s+a[i,j];
end;

Срочно переделать на:

for i:=1 to 5 do s:=s+a[i,i];

Так же необходимо обнулить s. И ещё не ясно, зачем создавать матрицу 20*20, а затем использовать только 5*5...

[s1avjan]

Спасибо всем огромное! Очень помогли!!!=))