Даны целое число m и матрица размера m x m. Составьте блок-схему алгоритма получения и вывода вектора B и напишите программу на языке Турбо Паскаль, элементы которой bi равны количеству элементов i строки данной матрицы, которые больше заданного числа k по абсолютной величине.
Ответы
Блок-схема алгоритма может выглядеть следующим образом:
Начало
Ввести 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.