В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
gagag590
gagag590
20.05.2023 10:55 •  Информатика

F(m,n) вычислить сумму квадратов диагональных элементов матрицы(m=n)

Показать ответ
Ответ:
Zxcvvn
Zxcvvn
17.06.2020 01:57


Program Nim17;
uses crt;
const n=10;
var
  f:array[1..n,1..n] of integer;
  sum1,sum2,i,j:integer;
begin
  Randomize;
  {ввод и вывод матрицы}
  writeln('Mатрица: перезагрузка');
  sum1:=0;
  sum2:=0;
  for i:=1 to n do
    begin
      for j:=1 to n do
        begin
          f[i,j]:= Random(100)-50;
          write(f[i,j]:5);
          if i=j then sum1:=sum1+f[i,j]*f[i,j];
          if i=n-j then sum2:=sum2+f[i,j]*f[i,j];
        end;
      writeln;
    end;
  writeln('*** alphaues is thinking... ***');
  writeln('***          OK             ***');
  writeln('Cумма элементов диагонали северо-запад - юго-восток ',sum1);
  writeln('Cумма элементов диагонали юго-запад - северо-восток ',sum2);
  writeln('Cумма всех диагональных элементов ',sum1+sum2);
end.

0,0(0 оценок)
Ответ:
рома1254
рома1254
17.06.2020 01:57

uses crt;
const n=5;
var a:array[1..n,1..n] of integer;
i,j,sum:integer;
begin
clrscr;
writeln('Введите ',n*n,' матрицу:');
for i:=1 to n do
for j:=1 to n do
begin
write('a[',i,',',j,']=');
readln(a[i,j]);
end;
clrscr;
writeln('Матрица:');
sum:=0;
for i:=1 to n do
begin
for j:=1 to n do
begin
write(a[i,j]:4);
if j=i then s:=sum+sqr(a[i,j]);
end;
writeln;
end;
write('Сумма квадратов элементов диагонали=',s);
readln
end.

0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота