Найти имеется ли в двумерном целочисленном массиве данном с поддержкою генератора
Определить имеется ли в двумерном целочисленном массиве заданном с подмогою генератора случайных чисел в спектре (-111;200) значение элемента равного В(В свое видимо задавать)
Задать свой вопрос
Николай
Язык какой?
Антон Шутеев
-111 и 200 входят в спектр?
Екатерина Чубинишвили
да
1 ответ
Сема
Const
n=10;m=7;
var
a: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.
вариант 2
const
n=10;m=7;
var
a: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 klt;gt;0 then
writeln('Yes')
else
writeln('N');
end.
n=10;m=7;
var
a: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.
вариант 2
const
n=10;m=7;
var
a: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 klt;gt;0 then
writeln('Yes')
else
writeln('N');
end.
Николай Нанакин
Спасибо за помощь конечно! Но это немного не подходит...
Гальневин
Василий
Это почему?
Varezhkina Svetlana
Ну у нас как то все проще, я не знаю как обьяснить! Но все одинаково псасибо громадное!
Vitalik Zejgman
А проще и не получится. Я так думаю. В одном цикле массив заполняется с подмогою случайных чисел. В ином цикле просто проверяется наличие этого В. Можно заместо переменной Flag подсчитывать количество чисел одинаковых В.
Марина
Сделала еще один вариант задания
Роман Сасоров
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. Я то дуб в нем... Беда моя это.
Арсений Хмелюк
Во-первых у Вас диапазон чисел от 200 до 621
Сергей
Во-вторых где вывод на экран есть такое B либо нет?
Kostik Polojuftin
Для чего n раз выводить на экран "b=" ,b? Как-то все странно это
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Игорь 14 лет назад был на 8 лет моложе, чем его
Математика.
Два тела массами m1 и m2 находящие на расстоянии R друг
Физика.
В сосуде 4целых одна пятая литр воды что бы заполнить сосуд
Математика.
Двум малярам Диме И Олегу поручили выкрасить фасад дома они разделили
Разные вопросы.
найти порядковый номер 41Э если в ядре 20 нейтронов
Разные вопросы.
в ряду натуральных чисел 3, 8, 10, 24, … 18 одно
Математика.
Предприятие по производству с/хоз продукции на производство затратило 3527000 руб Валовый
Разные вопросы.
Математика, задано на каникулы. ВАРИАНТ 1004
НОМЕР 1,2,3,4,5,6,7,8.
Математика.
Имеются три конденсатора емкостью С1=1мкФ, С2=2мкФ и С3=3мкФ. Какую наименьшую емкость
Физика.
Из точки м выходят 3 луча MP MN и MK причём
Геометрия.
Облако тегов