Условие Задачи:
Решение ТУТ
Дана матрица 5х5. Найти сумму элементов, стоящих на двух соседних диагоналях параллельных главной.
___________________________________________________________
Имя:
Дата:
2012-08-25 19:48:44
IP: 176.118.53.65
|
Могу предложить более быстрое решение этой задачи.
Сама суть:
1. Не надо вводить 3 раза sum. Вполне хватает и одного.
2. Не надо проходить всю матрицу и еще узнавать if i-1=j .....
Вот мое решение:
program matrix_5x5;
TYPE
mas=ARRAY[1..5,1..5] of integer;
var
a: mas;
sum: longint;
i,j: byte;
BEGIN
for i:=1 to 5 DO
for j:=1 to 5 DO
Begin
write ('Введите єлемет ',i,'х',j,' -> '); readLN(a[i,j]);
End; writeLN;
writelN('Введенная Вами матрица :');
for i:=1 to 5 DO
begin
writeLN;
for j:=1 to 5 DO write (a[i,j]:2);
end;
sum:=0;
for i:=1 to 3 DO sum:=sum+a[i,i+1];
for i:=3 to 5 DO sum:=sum+a[i,i-1];
writeln;
writeln;
writeln (sum);
READLN
END.
С уважением, Богдан |
Страницы:
1
|
|
