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

Https://www.justgiving.com/team/watch-power-book-2ghost-season-1-episode-1-online https://www.justgiving.com/team/watch-power-book-2-ghost-season-1-episode-1-online
https://www.justgiving.com/team/watch-power-book-2-ghost-season-1-episode-1-starz
https://www.justgiving.com/team/Free-power-book-2-ghost-season-1-Watch-Online
https://www.hybrid-analysis.com/sample/a150f09b7a4ef0bca8a28fe165d99e1b26248bebe16c8928c6df7d5a4ed416c7
https://paiza.io/projects/m3fj4Tl348hEw64-XHgJ8Q
http://facebookhitlist.com/forum/topics/hd-series-on-starz
https://caribbeanfever.com/photo/albums/hd-series-on-starz
https://www.peeranswer.com/question/5f4db91c569be6711da64dcf

Показать ответ
Ответ:
MiraQeen
MiraQeen
29.04.2021 00:43
Var a:array of array of integer;
c:array of array of integer;
ma:array of array of integer;
i,j,n:integer;
begin;
randomize;
readln(n);
setlength(a,n+1); //задаём размерность динамических массивов
setlength(c,n+1);
setlength(ma,n+1);
for i:=1 to n do
begin;
setlength(a[i],n+1);
setlength(c[i],n+1);
setlength(ma[i],n+1);
end;

writeln('Matrix A:');   //генерируем массив псеводслучайных чисел
for i:=1 to n do begin;
 writeln;
  for j:=1 to n do
   begin;
    a[i,j]:=random(10);
    write(a[i,j]:4);
   end;
 end;
writeln;

writeln('Matrix C:'); //аналогично
for i:=1 to n do
 begin;
 writeln;
  for j:=1 to n do
   begin;
    c[i,j]:=random(10);
    write(c[i,j]:4);
   end;
 end;

for i:=1 to n do     //сохраняем матрицу C для транспонации
  for j:=1 to n do
    ma[i,j]:=c[i,j];
    writeln;

writeln('Transpose matrix C:'); //транспонируем C
for i:=1 to n do
 begin;
  writeln;
   for j:=1 to n do
    begin;
     c[i,j]:=ma[j,i];
     write(c[i,j]:4);
    end;
 end;

writeln;
writeln('Final matrix:'); // получаем финальную матрицу
for i:=1 to n do
 begin;
  writeln;
   for j:=1 to n do
    begin;
     ma[i,j]:=2*c[i,j]*a[i,j];
{по свойству дистрибутивности матриц С(A+A)=C*A+C*A=2*C*A}
     write(ma[i,j]:4);
    end;
 end;
end.
0,0(0 оценок)
Ответ:
stanislavfred
stanislavfred
29.04.2023 15:51

Объяснение:

Платные программы Бесплатные программы (freeware) Операционные системы (для компьютеров) Windows Самая ра операционная система. Легко установить. Понятный интерфейс. Большинство программ работают именно под этой системой. Стоимость: от 3 500 руб. ОС Windows - официальный сайт Есть возможность получить пробную версию системы MacOS Удобная система от Apple, но программы на неё тяжело искать, иногда невозможно. Тем, кто привык к Виндовс, придётся переучиваться. MacOS более безопасна. Стоимость: от 57 000 руб. (поставляется только с устройствами, купить отдельно невозможно).

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