Другие языки программирования и технологии

Помогите пожалуйста :(

Нам учитель дал задание и не объяснил как это делать. Задание - в паскале сделать таблицу 10 на 10 и еще 3 таблицы (тоже 10 на 10) с двумерным массивом с рандомными числами 1 и 0, и чтобы в первой таблице поставив в рандомное место букву он проверил через цикл в других таблицах стоит ли буква на 1. И если стоит на 1 он это выписывал внизу.
Салават Давлятов
Салават Давлятов
311
Был темен смысл ее речей...
Как это можно в таблице чисел поставить на первое место букву? А дальше совсем смысл потерялся :(
Гауезов Талгат
Гауезов Талгат
60 253
Лучший ответ
Rudik:d **** Кажется я понял, что он имеет в виду - нужно сделать анаграммы для номеров, и потом на основе другого массива проверить - является ли этот массив аналогом этого номера
пример: 123374226 = hollywood
Мирбол Турикпенбаев а что если это будет не массив чисел а массив символов
uses crt;
var
a,b,c,d:array[1..10,1..10] of string;
i,j,h:integer;c:char;
begin
for i: 1 to 10 do begin for j: 1 to 10 do
begin k :=random(2);
if k=1 then a[j,i]:='1' else a[j,i]:='0';
write (a[j,i]); end; writeln; end;
writeln;
for i: 1 to 10 do begin for j: 1 to 10 do
begin k :=random(2);
if k=1 then b[j,i]:='1' else b[j,i]:='0';
write (b[j,i]); end; writeln; end;
writeln;
for i: 1 to 10 do begin for j: 1 to 10 do
begin k :=random(2);
if k=1 then c[j,i]:='1' else c[j,i]:='0';
write (c[j,i]); end; writeln; end;
writeln;
for i: 1 to 10 do begin for j: 1 to 10 do
begin k :=random(2);
if k=1 then d[j,i]:='1' else d[j,i]:='0';
write (d[j,i]); end; writeln; end;
writeln;
i:= random(11); j:= random(11);
a[j,i]:= 'a';
clrscr;
or i: 1 to 10 do begin for j: 1 to 10 do begin
write (a[j,i]); end; writeln; end;
writeln;
for i: 1 to 10 do begin for j: 1 to 10 do begin
write (b[j,i]); end; writeln; end;
writeln;
for i: 1 to 10 do begin for j: 1 to 10 do begin
write (c[j,i]); end; writeln; end;
writeln;
for i: 1 to 10 do begin for j: 1 to 10 do begin
write (d[j,i]); end; writeln; end;
writeln;
write (' символ а стоит вместо единицы в массиве (ах) ');
if b[j,i]='1' then write('b ');
if c[j,i]='1' then write('c ');
if d[j,i]='1' then write('d ');
end.
если я правильно поняла задачу то она выглядит как то так. могу быть ошибки со знаками препинания я ее не проверяла. она выводит названия массивов где на том же месте в 1 массиве стоит а в других массивах стоит 1
Атахан Нарходжаев
Атахан Нарходжаев
127

Похожие вопросы