ответ 36 кбайт
я тебе в комментах в прошлом вопросе скинул
Так как у Коли по условию задачи 2 ряд, значит нумерация рядов на схеме будет сверху вниз. А это означает, что Петя сидит на 3 ряду.
Далее в условии задачи сказано, что Коля сидит на 3 месте, значит нумерация мест идет справа налево, а это означает, что номер места у Пети — 5.
Петя сидит в 3 ряду на 5 месте.
Например:Я выберу номер 3. .......... Компьютерная анимация (последовательный показ слайд-шоу из заранее подготовленных графических файлов, а также компьютерная имитация движения с помощью изменения и перерисовки формы объектов или показа последовательных изображений с фазами движения, подготовленных заранее или порождаемых во время анимации) может применяться в компьютерных играх, мультимедийных приложениях (например, энциклопедиях), а также для «оживления» отдельных элементов оформления, например, веб-страниц и рекламы (анимированные баннеры). На веб-страницах анимация может формироваться средствами стилей (CSS) и скриптов (JavaScript) или модулями, созданными с помощью технологии Flash или её аналогов (флеш-анимация).
С середины 1980-х годов компьютерная анимация используется для создания спецэффектов в кинематографе. Первым фильмом, содержащим ключевые сцены, основанные на изображении, синтезированном компьютером, стал «Терминатор 2: Судный день»[1].
Несомненным преимуществом компьютерной 3D-анимации перед классической рисованной является полное отсутствие искажений пропорций объекта (черт лица и т. п.) при движении, неизбежных при ручной прорисовке.
{Предвещая недовольство: мне самому не нравится эта подпрограмма, но динамические массивы обычно не изучают в школьной программе}
//Pascal ABC.NET v3.1 сборка 1219
Const
n1=5;
m1=8;
n2=6;
m2=4;
Type
matrixa=array[1..n1,1..m1] of integer;
matrixb=array[1..n2,1..m2] of integer;
procedure FindInd(f:integer;maa:matrixa;mab:matrixb);
Var i,j:integer;
s:string;
begin
for i:=1 to n1 do
for j:=1 to m1 do
if maa[i,j]=f then s:=s+'['+inttostr(i)+']['+inttostr(j)+']'+chr(10)+chr(13);
writeln('For A:');
writeln(s);
s:='';
for i:=1 to n2 do
for j:=1 to m2 do
if mab[i,j]=f then s:=s+'['+inttostr(i)+']['+inttostr(j)+']'+chr(10)+chr(13);
writeln('For B:');
writeln(s);
end;
Var
maa:matrixa;
mab:matrixb;
i,j,f:integer;
begin
randomize;
writeln('Matrix A:');
for i:=1 to n1 do
begin
for j:=1 to m1 do
begin
maa[i,j]:=random(20);
write(maa[i,j]:4);
end;
writeln;
end;
writeln('Matrix B:');
for i:=1 to n2 do
begin
for j:=1 to m2 do
begin
mab[i,j]:=random(20);
write(mab[i,j]:4);
end;
writeln;
end;
readln(f);
FindInd(f,maa,mab);
end.
Пример ввода:
2
Пример вывода:
Matrix A:
14 10 13 11 6 9 14 9
10 5 12 11 17 5 1 8
4 6 0 19 17 0 1 8
16 13 6 9 15 12 14 18
2 2 15 1 0 7 10 5
Matrix B:
4 9 13 19
13 11 10 2
2 18 9 18
15 2 7 14
9 4 14 13
2 4 13 18
For A:
[5][1]
[5][2]
For B:
[2][4]
[3][1]
[4][2]
[6][1]