Предмет: Информатика,
автор: asdasdasda231231323
Помогите написать программу на Паскале
Дана квадратная матрица размером . Найти сумму главной диагонали и умножить на полученное число все элементы матрицы, кроме лежащих на главной диагонали
Ответы
Автор ответа:
0
program raf105;
const
n = 4;
var
a: array[1..n,1..n] of integer;
i,j,sum: integer;
begin
for i:=1 to n do
begin
writeln;
for j:=1 to n do
begin
a[i,j]:= random(1,9);
if i = j then
sum:= sum + a[i,j];
write(a[i,j]:4,' ');
end;
end;
writeln;
writeln;
writeln('Вывод:');
for i:=1 to n do
begin
writeln;
for j:=1 to n do
begin
if i <> j then
a[i,j]:= a[i,j] * sum;
write(a[i,j]:4,' ');
end;
end;
end.
PascalABC 3.4.2
Похожие вопросы
Предмет: Экономика,
автор: kalzosoj
Предмет: Математика,
автор: natalialagutina57
Предмет: Обществознание,
автор: shevchenko11alisa
Предмет: Литература,
автор: hisamisis
Предмет: Литература,
автор: valikkk1