// PascalABC.NET 3.2, сборка 1370 от 24.12.2016 // Внимание! Если программа не работает, обновите версию!
begin var m:=ReadInteger('Количество строк в массиве:'); var n:=ReadInteger('Количество столбцов в массиве:'); var a:=MatrFill(m,n,0); for var i:=0 to m-1 do for var j:=0 to n-1 do Read(a[i,j]); Writeln('В 5-й строке число 13 встречено в колонке ', a.Row(4).IndexOf(13)+1) end.
Пример Количество строк в массиве: 7 Количество столбцов в массиве: 8 -4 10 -6 19 -3 -6 18 -9 16 12 18 8 14 11 4 10 -10 -4 -7 13 11 -4 4 -2 -6 1 11 8 1 11 7 8 18 6 14 -7 -8 13 5 13 -1 6 14 8 -5 11 -2 -5 20 16 7 -4 6 5 20 -10 В 5-й строке число 13 встречено в колонке 6
Сидели модераторы модерировали, причины для банов в текстовый файл записывали и жили хорошо.
Модератор с ником m0nclous любил красоту в текстовых файлах, поэтому он каждую причину хорошо форматировал, используя текстовый процессор "LibreOffice Writer". Некоторые спрашивали его, почему же не он не использует "Microsoft office Word"? На это он отвечал, то что он использует на своём компьютере операционную систему "Arch Linux", а на линукс нету microsoft office'а, но есть аналог - libreoffice.
Вот однажды причины для банов изменили и он сел за редактирование своего текстового файла с ними. Писал, писал и тут ему в голову пришла идея: "почему я должен сидеть и модерировать? Я на большее!". После чего он он очистил файл, изменил его название на "hack-pentagon", изменил расширение на ".js" и начал редактировать код, используя текстовый редактор "sublime text 3". Просидел он 3 дня, 3 ночи, очень устал, но закончил свой проэкт. Он запустил свою программу и начался взлом Пентагона.
Но тут прилетает вертолёт, SWAT влетает в окна, скручивает его и садит в тюрьму.
Теперь m0nclous сидит за решеткой и придумывает разные рассказы, после чего записывает их в файл, используя текстовый процессор "Microsoft Word", потом распечатывает их и продаёт. Таким образом он гасит свой миллиардный штраф.
// Внимание! Если программа не работает, обновите версию!
begin
var m:=ReadInteger('Количество строк в массиве:');
var n:=ReadInteger('Количество столбцов в массиве:');
var a:=MatrFill(m,n,0);
for var i:=0 to m-1 do
for var j:=0 to n-1 do Read(a[i,j]);
Writeln('В 5-й строке число 13 встречено в колонке ',
a.Row(4).IndexOf(13)+1)
end.
Пример
Количество строк в массиве: 7
Количество столбцов в массиве: 8
-4 10 -6 19 -3 -6 18 -9
16 12 18 8 14 11 4 10
-10 -4 -7 13 11 -4 4 -2
-6 1 11 8 1 11 7 8
18 6 14 -7 -8 13 5 13
-1 6 14 8 -5 11 -2 -5
20 16 7 -4 6 5 20 -10
В 5-й строке число 13 встречено в колонке 6
Модератор с ником m0nclous любил красоту в текстовых файлах, поэтому он каждую причину хорошо форматировал, используя текстовый процессор "LibreOffice Writer". Некоторые спрашивали его, почему же не он не использует "Microsoft office Word"? На это он отвечал, то что он использует на своём компьютере операционную систему "Arch Linux", а на линукс нету microsoft office'а, но есть аналог - libreoffice.
Вот однажды причины для банов изменили и он сел за редактирование своего текстового файла с ними. Писал, писал и тут ему в голову пришла идея: "почему я должен сидеть и модерировать? Я на большее!".
После чего он он очистил файл, изменил его название на "hack-pentagon", изменил расширение на ".js" и начал редактировать код, используя текстовый редактор "sublime text 3". Просидел он 3 дня, 3 ночи, очень устал, но закончил свой проэкт. Он запустил свою программу и начался взлом Пентагона.
Но тут прилетает вертолёт, SWAT влетает в окна, скручивает его и садит в тюрьму.
Теперь m0nclous сидит за решеткой и придумывает разные рассказы, после чего записывает их в файл, используя текстовый процессор "Microsoft Word", потом распечатывает их и продаёт. Таким образом он гасит свой миллиардный штраф.