Написать программу на паскале:определить количество строк матрицы, в которых хотя бы один элемент равен t

1 Январь 0001



написать программу на паскале:определить количество строк матрицы, в которых хотя бы один элемент равен t

  • uses crt;
    var
      a:array [1..100,1..100] of real;
      t:real; i,j,k:integer;
    begin
      randomize;
      write(‘Введите количество строк матрицы: ‘); read(i);
      write(‘Введите количество столбцов матрицы: ‘); read(j);
      write(‘Введите число t: ‘); read(t);
      clrscr;
      for i:=1 to i do
      begin
        for j:=1 to j do
        begin
          a[i,j]:=random(100)-50;
          write(a[i,j],’ ‘);
        end;
        writeln;
      end;
      k:=0;
      for i:= 1 to i do
      begin
        for j:= 1 to j do
        begin
          if a[i,j]=t then
          begin
            k:=k+1;
            j:=1;
            i:=i+1;
          end;
        end;
      end;
     writeln(‘Количество строк: ‘,k);
    end.

  • Program Natasha1925_2;
    uses crt;
    const n=50;
    var
      a:array[1..n,1..n] of integer;
      t:integer;
      i,j,kwo:integer;
      yes:boolean;
    begin
      writeln(‘*** alphaues is thinking… ***’);
      writeln(‘***          OK             ***’);
      writeln();
      randomize;
      {создание массива}
      for i:=1 to n do
        begin
          for j:=1 to n do
            begin
              a[i,j]:=random(101)-50;
              write(a[i,j]:7:2);
            end;
          writeln();
        end;
      write(‘Введите число t: ‘); read(t);
      {поиск строк}
      kwo:=0;
      for i:=1 to n do
        begin
          yes:=FALSE;
          for j:=1 to n do
            if a[i,j]=t then
              yes:=TRUE;
          if yes then kwo:=kwo+1;
        end;
     writeln(‘Количество строк: ‘,kwo);
    end.







Информатика

Комментарии закрыты.