Массив, Паскаль

[jax]

Массив, Паскаль

Здравствуйте!
Помогите написать программу в паскале.
Задача:
Создать матрицу 3 на 3,ввести 9 элементов,сравнить какой треугольник больше нижний или верхний,вывести сумму матрицы и сумму верхнего и нижнего треугольника,на рисунке я объяснил что такое треугольник

uses crt;
var i,j:integer;
a:array [1..3,1..3] of integer;
{Ввод массива}
begin
for i:=1 to 3 do
for j:=1 to 3 do
readln(a[i,j]);
writeln;
{Вывод массива}
for i:=1 to 3 do
begin
for j:=1 to 3 do
writeln(a[i,j]);
end;
end.

 

[jax]

маленькое начало программы,помогите закончить программу

 

[Vladimir_S]

маленькое начало программы,помогите закончить программу

Пожалуйста:

uses crt;
const
 n=3;
var
 i,j,S_top,S_bot:integer;
 a:array [1..n,1..n] of integer;
{Ввод массива}
begin
 clrscr;
 for i:=1 to n do
  for j:=1 to n do
   begin
    write('a[',i,',',j,']= ');
    readln(a[i,j]);
   end;
 writeln;
{Вывод массива}
 for i:=1 to n do
  begin
   for j:=1 to n do
    write(a[i,j]:5);
   writeln;
  end;
 writeln;
 S_top:=0;
 S_bot:=0;
{Нахождение суммы элементов верхнего треугольника}
 for i:=1 to n do
  for j:=i+1 to n do
   S_top:=S_top+a[i,j];
{Нахождение суммы элементов нижнего треугольника}
  for i:=2 to n do
  for j:=1 to i-1 do
   S_bot:=S_bot+a[i,j];
{Вывод найденных сумм}
 writeln('S_top= ',S_top);
 writeln('S_bot= ',S_bot);
{Сравнение найденных сумм и вывод результата}
 if S_top>S_bot then writeln('S_top>S_bot') else
 if S_top<S_bot then writeln('S_top<S_bot') else
 writeln('S_top=S_bot');
 readln;
end.

Помимо добавления куска, сделаны следующие исправления:
1. Размерность матрицы (3) задана в виде константы. Теперь, буде возникнет желание, ее можно легко изменить.
2. В блоке ввода добавлены экранные подсказки. Без них, т.е. вслепую, вводить элементы ну очень неудобно.
3. Исправлен блок вывода, чтобы матрица отображалась на экране именно в виде матрицы, а не непойми чего.

 

[jax]

спасибо за помощь