Ввод элементов матрицы

g=0

Нахожд. кратного

нет

i=1, 1, s

a[i,j]mod3=0

Конец цикла нет k=1, 1, q

Вывод кратных

да

Конец

g=g+1

Конец цикла

Конец

g=s

p=p+1; V[p]=i

нет Конец цикла

да

Конец цикла

Конец цикла

Конец

Текст программы:

Program lab5_2;

Type

matrix=array[1..20, 1..20] of integer;

rez=array[1..20] of integer;

Var

k,n,q:integer;

M:matrix;

L:rez;

Procedure vvod(s:integer; var A:matrix);

Var

i,j:integer;

Begin

For i:=1 to s do

For j:=1 to s do

Begin

Writeln('Vvedite element ',i,' stolbca ',j);

Read(a[i,j]);

end

End;

Procedure ost(s:integer; A:matrix; var V:rez; var p:integer);

Var

i,j,g:integer;

Begin

p:=0;

For i:=1 to s do

Begin

g:=0;

For j:=1 to s do

Begin

if a[i,j] mod 3 = 0 then

g:=g+1;

if g=s then

Begin

p:=p+1;

V[p]:=i

end;

end;

end;

end;

Begin

Writeln('Vvedite kolichestvo strok i stolbcov kvadratnoy matrici');

read(n);

vvod(n, M);

ost(n, M, L, q);

Writeln('Nomera strok elementi kotorix delatsa na 3 bez ostatka:');

for k:=1 to q do

writeln(L[k])

End.