Ошибка в коде.

[fanyl]

program ameba;
var
  n: array [1..5, 1..8] of integer;
  m: array [1..10, 1..6] of integer;
  i,j: byte;
begin
Randomize;
  for i := 1 to 5 do
   for j := 1 to 8 do
    n[i,j] := random(10);
  for i := 1 to 10 do
   for j := 1 to 6 do
    m[i,j] := random(10);
  for i := 1 to 5 do
   for j := 1 to 8 do
    if m[i,j] mod 3 = 0 then write(m[i,j], ' ');
  for i := 1 to 10 do
   for j := 1 to 6 do
    if n[i,j] mod 3 = 0 then write(m[i,j], ' ');
  ReadLn;
end.

Почему программа зацикливается после запуска?

[Alex Cones]

for j := 1 to 8 do
if m[i,j] mod 3 = 0 then write(m[i,j], ' ');

А теперь посмотрите пределы для m! Var m...

Меняем местами:

program ameba;
var
n: array [1..5, 1..8] of integer;
m: array [1..10, 1..6] of integer;
i,j: byte;
begin
Randomize;
for i := 1 to 5 do
for j := 1 to 8 do
n[i,j] := random(10);
for i := 1 to 10 do
for j := 1 to 6 do
m[i,j] := random(10);
for i := 1 to 5 do
for j := 1 to 8 do
if n[i,j] mod 3 = 0 then write(m[i,j], ' ');
for i := 1 to 10 do
for j := 1 to 6 do
if m[i,j] mod 3 = 0 then write(m[i,j], ' ');
ReadLn;
end.

[ОДИНОЧЕСТВО В СЕТИ]

а кто вам сказал что она зацикливается? все работает ! правда вывод какой- то странный!

[fanyl]

после запуска весь экран заполняют цифры 6 9 6 9 6 9 6 9 и повторяется до бесконечности(

[Alex Cones]

if n[i,j] mod 3 = 0 then write(n[i,j], ' ');
for i := 1 to 10 do
for j := 1 to 6 do
if m[i,j] mod 3 = 0 then write(m[i,j], ' ');

Вот теперь все!

[*Elena*]

program ameba;
var
n: array [1..5, 1..8] of integer;
m: array [1..10, 1..6] of integer;
i,j: byte;
begin
Randomize;
for i := 1 to 5 do
for j := 1 to 8 do
n[i,j] := random(10);

for i := 1 to 10 do
for j := 1 to 6 do
m[i,j] := random(10);

for i := 1 to 5 do
for j := 1 to 8 do
if n[i,j] mod 3 = 0 then write(n[i,j], ' ');

writeln;

for i := 1 to 10 do
for j := 1 to 6 do
if m[i,j] mod 3 = 0 then write(m[i,j], ' ');

ReadLn;
end.

вот такой код у тебя должен быть, только я не проверял

[Alex Cones]

*Elena*

проверял

Мда... Хорошая маскировка...

[fanyl]

простите меня канечно, но теперь только одни 9 без остановки выводи(
может у меня с паскалем что-то не так?

[Alex Cones]

Сделай трассировку.

[ОДИНОЧЕСТВО В СЕТИ]

Мда... Хорошая маскировка...

да уж!

может у меня с паскалем что-то не так?

может! поищи на форуме компонент для паскаля VypryamitelRuk Михалыч вроде выкладывал!