Question

Даны целое число m и матрица размера m x m. Составьте блок-схему алгоритма получения и вывода вектора B и напишите программу на языке Турбо Паскаль, элементы которой bi равны количеству элементов i строки данной матрицы, которые больше заданного числа k по абсолютной величине.

Answer 1

Блок-схема алгоритма может выглядеть следующим образом:

Начало

 Ввести m, k, матрицу A

 Обнулить вектор B

 Для i = 1 до m циклом

   Для j = 1 до m циклом

     Если |A[i,j]| > k, то увеличить b[i] на 1

 Вывести вектор B

Конец

Ниже приведена реализация алгоритма на языке Турбо Паскаль:

program vector_b;

const

 max_size = 100;

var

 m, k: integer;

 a: array[1..max_size, 1..max_size] of integer;

 b: array[1..max_size] of integer;

 i, j: integer;

begin

 write('Enter m, k: ');

 readln(m, k);

 writeln('Enter matrix A:');

 for i := 1 to m do

   for j := 1 to m do

     read(a[i, j]);

 for i := 1 to m do

   b[i] := 0;

 for i := 1 to m do

   for j := 1 to m do

     if abs(a[i, j]) > k then

       inc(b[i]);

 writeln('Vector B:');

 for i := 1 to m do

   write(b[i], ' ');

 writeln;

end.