Новые сообщения · Правила  
Страница 1 из 11
Модератор форума: Berestovskiy 
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » помогитеее
помогитеее
Даны два квадратные матрицы А(NxN) и B(MxM).Вывести на экран ту из них,у которой сумма элементов лежащих выше главной диагонали меньше.
1 | Автор: Викачкааа | 2012-04-24, 19:53   |  Репутация: [ + 0 ]
var
a,b:array[1..100,1..100]of integer;
s,ss,i,j,n,m:integer;
begin
readln(n,m);
for i:=1 to n do
for j:=1 to n do begin
read(a[i,j]);
if i<j then s:=a[i,j];end;
for i;=1 to m do
for j:=1 to m do begin
read(b[i,j]);
if i<j then ss:=b[i,j];end;
if s>ss then writeln(s) else writeln(ss);
end.


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
2 | Автор: Berestovskiy | 2012-04-24, 20:11   |  Репутация: [ + 211 ]
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » помогитеее
Страница 1 из 11
Поиск: