Составьте таблицу истинности

1 - В

2 - Д, Е

3 - Г

4 - А, Б

Записывая телефон в записную книжку вы сохраняете номер абонента(хранение)

Создавая плейлист вы составляете сборник музыкальных файлов, упорядычивающий муз.файлы (храните)

Рассказывая доклад на конференции вы делитесь своим докладом с другими(передача)

Занимаясь поиском слова в словаре вы обрабатываете информацию, предоставленную в словаре(обработка)

Просматривая видео на уроке вы получаете новую информацию (приём)

Посещая музей вы разглядываете экспонаты и знакомитесь с их историей (приём)

нумерация элементов, а соответственно и строк в массиве начинается с 0

программа не проверяет введенные данные на корректность, то есть если ввести номер строки выходящий за рамки массива то будет ошибка.

так как не было указано где брать элементы массива то он заполняется случайными числами в диапозоне 0..100

var

   n, k : integer;

   a : real;

   var d : array[,] of real;

begin

   write('введите размер матрицы n=');

   readln(n);

   d := new real[n,n];

   for var i := 0 to n-1 do begin

       for var j := 0 to n-1 do d[i,j] := random(101);

   end;

   write('введите номер строки k=');

   readln(k);

   a := d[k,k];

   for var i := 0 to n-1 do if d[k,k] <> 0 then d[k,i] := d[k,i]/a;

end.