Работа 3.7 Упр.15 ГДЗ Семакин 10 класс (Информатика)

Рассмотрим вариант решения задания из учебника Семакин, Хеннер, Шеина 10 класс, Бином: 15. Определить номера строк матрицы R[M, N], хотя бы один элемент которых равен с, и элементы этих строк умножить на d. *Цитирирование задания со ссылкой на учебник производится исключительно в учебных целях для лучшего понимания разбора решения задания. 10 semakin10 pract/3-7/15 98

Нужно просмотреть каждую строку матрицы $$R[M,N]$$ и проверить, есть ли в ней хотя бы один элемент, равный $$c$$. Если такой элемент найден, то номер строки выводится, а все элементы этой строки умножаются на $$d$$.

Для этого удобно использовать признак pr: сначала он равен false, а при нахождении элемента $$r[i,j]=c$$ становится true. После проверки строки, если pr = true, выполняется умножение всех её элементов на $$d$$.

const m=5;
n=5;
var r:array[1..m,1..n] of integer;
i,j,c,d,k:integer;
pr:boolean;
begin
  randomize;
  writeln(‘Ishodnaya matrica’);
  for i:=1 to m do
  begin
    for j:=1 to n do
    begin
      r[i,j]:=random(15);
      write(r[i,j]:4);
    end;
    writeln;
  end;

  write(‘c= ‘);
  read(c);
  write(‘d= ‘);
  read(d);

  writeln(‘Stroki, v kotoryh est chislo ‘,c);
  k:=0;
  for i:=1 to m do
  begin
    pr:=false;
    j:=1;
    while (j<=n) and not pr do
      if r[i,j]=c then pr:=true
      else j:=j+1;
    if pr then
    begin
      k:=1;
      write(i,’ ‘);
      for j:=1 to n do r[i,j]:=r[i,j]*d;
    end;
    writeln;
  end;

  if k=0 then writeln(‘V matrice net chisla ‘,c)
  else
  begin
    writeln(‘Izmenennaya matrica’);
    for i:=1 to m do
    begin
      for j:=1 to n do
        write(r[i,j]:4);
      writeln;
    end;
  end;
end.

Программа сначала выводит исходную матрицу, затем находит строки, содержащие число $$c$$, умножает все элементы таких строк на $$d$$ и выводит изменённую матрицу.