• Определить имеется ли в двумерном целочисленном массиве заданном с помощью генератора случайных чисел в диапазоне (-111;200) значение элемента равного В(В свое видимо задавать)

Ответы 6

  • Сделала еще один вариант задания
    • Автор:

      speedy71
    • 6 лет назад
    • 0
  • program q;uses crt;var a:array[1..100,1..100]of integer;b,n,m,i,j:integer;beginrandomize;write ('n=');read(n);write ('m=');read(m);for i:=1 to n do beginfor j:=1 to m do begina[i,j]:=random(422)+200;write (a[i,j],' ');end;writeln;end;for i:=1 to n do beginwriteln ('b=',b);for j:=1 to m do beginif a[i,j]=b then b:=468;end;end;end. что то вроде такого,это Pascal ABC. Я то дуб в нем... Беда моя это.
    • Автор:

      reina
    • 6 лет назад
    • 0
  • Во-первых у Вас диапазон чисел от 200 до 621
    • Автор:

      tiger48
    • 6 лет назад
    • 0
  • Во-вторых где вывод на экран есть такое B или нет?
    • Автор:

      bo
    • 6 лет назад
    • 0
  • Зачем n раз выводить на экран "b=" ,b? Как-то все странно это
    • Автор:

      kaylah
    • 6 лет назад
    • 0
  • constn=10;m=7;vara:array[1..n,1..m]of integer;flag,i,j,b:integer;begin     for i:=1 to n do         begin             writeln;                 for j:=1 to m do                      begin                        a[i,j]:=random(312)-111;                        write(a[i,j]:4);                      end;            end;writeln;Writeln('B ?');readln(b);for i:=1 to n do  for j:=1 to m do      if a[i,j]=b then          flag:=1;if flag=1 then   writeln('Yes')else   writeln('N');end.вариант 2constn=10;m=7;vara:array[1..n,1..m]of integer;k,i,j,b:integer;begin     for i:=1 to n do         begin             writeln;                 for j:=1 to m do                      begin                        a[i,j]:=random(312)-111;                        write(a[i,j]:4);                      end;            end;writeln;Writeln('B ?');readln(b);for i:=1 to n do  for j:=1 to m do      if a[i,j]=b then          k:=k+1;if k<>0 then   writeln('Yes')else   writeln('N');end.
    • Автор:

      misty50
    • 6 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years