Паскаль. Процедуры и функции.

[Данилов]

Кто обладает знаниями в области подпрограмм, прошу помочь: необходимо составить программу вычисления суммы элементов, находящихся ниже, выше и на главной диагонали матрицы с использованием и процедур, и функций в одной программе.

[Stilet]

Написать программу без подпрограмм тебе под силу?

[Данилов]

Нет. Иначе бы не просил в оказании помощи.

[zvygin1964]

А математику написать можете ?

[Aleksandr H.]

вот так делал???

[Данилов]

Не пойму к чему ваши псевдовопросы- унижения моего интеллектуального развития. К тому же, этот сайт не от программы " Что? Где? Когда?".
Кто может помочь в написании программы- буду благодарен за содействие.

[Aleksandr H.]

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

[Stilet]

Ай какие студенты нонче нежные пошли... В наше время ремешком батя с бляхой советской да по месту, что отвлекает от поглощения гранита науки...
Меня тут ругают за тыканья пальцами в "интелектуальное развитие" современной молодежи, а оно то вай-вай какое никакущее...

составить программу вычисления суммы элементов, находящихся ниже, выше и на главной диагонали матрицы с использованием и процедур, и функций в одной программе.

Вот. Лови. Писал без проверок.

const n=1;
var  a:array[1..n,1..n] of integer;

procedure inp; var i,j:integer;
begin for i:=1 to n do  for j:=1 to n do    readln(a[i]);end;

procedure outp; var i,j:integer;
begin for i:=1 to n do begin  for j:=1 to n do write(a[i]:5);end; writeln; end;

procedure up; var i,j,s:integer;
begin s:=0; for i:=1 to n do  for j:=i+1 to n do s:=s+a[i]; writeln('Сумма над ',s);end;

procedure down; var i,j,s:integer;
begin s:=0; for i:=1 to n do  for j:=1 to i do s:=s+a[i]; writeln('Сумма под ',s);end;

begin inp;outp;up;down; readln; end.

Удачного изучения.

[ежик01]

немного исправил:

const n=3;
var  a:array[1..n,1..n] of integer;

procedure inp; var i,j:integer;
begin for i:=1 to n do  for j:=1 to n do    readln(a[i,j]);end;

procedure outp; var i,j:integer;
begin for i:=1 to n do begin  for j:=1 to n do write(a[i,j], ' '); writeln; end; writeln; end;

procedure up; var i,j,s:integer;
begin s:=0; 
for i:=1 to n do  
  for j:=i+1 to n do s:=s+a[i,j]; 
writeln('Сумма над ',s);end;

procedure down; var i,j,s:integer;
begin s:=0; for i:=2 to n do  for j:=1 to i-1 do s:=s+a[i,j]; writeln('Сумма под ',s);end;

begin inp;outp;up;down; readln; end.

[Stilet]

const n=3;

Э-э-э... Ты это... малину то не ломай.

a[i,j]

Ну а тут согласен - затупил я маненько.