Пусть дана матрица А (n х m). Постройте вектор, каждый элемент которого равен количеству элементов в i-й строке матрицы - Pascal ABC

Формулировка задачи:

Пусть дана матрица А (n х m). Постройте вектор, каждый элемент которого равен количеству элементов в i-й строке матрицы А, не принадлежащих отрезку [0, 10]. Воспользуйтесь функцией, делающей соответствующую проверку в i-й строке. Заранее спс)

Код к задаче: «Пусть дана матрица А (n х m). Постройте вектор, каждый элемент которого равен количеству элементов в i-й строке матрицы - Pascal ABC»

textual
const
  n=5;
  m=7;
type
  matrix=array [1..n, 1..m] of integer;
  vector=array [1..n] of integer;
var
  a: matrix;
  b: vector;
  i,j: integer;
 
function CheckStr(a: matrix; i: integer): integer;
var
  j,k: integer;
begin
  k:=0;
  for j:=1 to m do
    if not (a[i,j] in [1..10]) then inc(k);
  CheckStr:=k;
end;
 
begin
  writeln('Матрица: ');
  for i:=1 to n do
    begin
      for j:=1 to m do
        begin
          a[i,j]:=random(41);
          write(a[i,j]:4);
        end;
      b[i]:=CheckStr(a,i);
      writeln;
    end;
  writeln('Полученный вектор: ');
  for i:=1 to n do write(b[i]:4);
  writeln;
end.

7   голосов, оценка 3.714 из 5


СОХРАНИТЬ ССЫЛКУ