Вопрос по информатике:
СРОЧНО! Дана действительная квадратная матрица порядка 4 на 4.Вычислить сумму ниже главной диагонали.
Помогите пожалуйста.P.S. Желательно чтобы числа самому вводить,а не рандомно
- 10.08.2017 14:03
- Информатика
- remove_red_eye 10927
- thumb_up 12
Ответы и объяснения 2
1)var a:array[1..4,1..4] of integer;
i,j,s:integer;
begin
for i:=1 to 4 do
for j:=1 to 4 do
readln(a[i,j]);
for i:=1 to 4 do begin
writeln();
for j:=1 to 4 do begin
write(a[i,j],' ');
if (i+j>5) then s:=s+a[i,j];
end;
end;
writeln();
write(s);
end.
2)var a:array[1..4,1..4] of integer;
i,j,s:integer;
begin
for i:=1 to 4 do
for j:=1 to 4 do
readln(a[i,j]);
for i:=1 to 4 do begin
writeln();
for j:=1 to 4 do begin
write(a[i,j],' ');
if (i>J) then s:=s+a[i,j];
end;
end;
writeln();
write(s);
end.
- 12.08.2017 00:04
- thumb_up 37
Var
a: array[1..4,1..4]of integer;
i, j,s: integer;
begin
s := 0;
for i := 1 to 4 do begin
for j := 1 to 4 do begin
write('a[',i,',',j,'] = ');
readln(a[i,j]);
end;
end;
for i:=2 to 4 do
for j:=1 to i-1 do s:=s+A[i,j];
writeln('Сумма элементов под главной диаганалью',s);
end.
- 12.08.2017 06:58
- thumb_up 24
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.