Нужна блок схема для двумерного массива - Turbo Pascal - Ответ 7139302

program Project2;
const k=10;
{$APPTYPE CONSOLE}
 
Var
FlagCh, FlagKr, FlagM : Boolean;
a: array[1..k, 1..k] of integer;
g,l,m,i,j, n: integer;
 
Begin
m :=0;
l :=0;
 
Writeln;
Writeln('Vvedite a');
readln(g);
Writeln;
 
writeln ('Massive');
for i:=1 to k do begin
  for j:=1 to k do begin
    a[i,j]:=round(random(k)-5);
    write(a[i,j],' ');
end;
writeln('');
end;
for i:=1 to k do begin
  for j:=1 to k do begin
    if (a[i][j]mod 2 = 0)then 
    FlagCh :=true;
    if (a[i][j]mod 6 <> 0)or (a[i][j]mod g <> 0)then 
    
FlagKR :=true;
    if (a[i][j]> 0)then 
    FlagM :=true;
  end;
  
end;
writeln;
if (FlagCh=True)then
begin
writeln('Est` stroka iz nechetnih elementov');
 
end
else
 
begin if (i=k)then
FlagCh:=false ;
  writeln ('Net stroki iz nechetnih elementov ')
end;
if (FlagM=True)then
begin
writeln('Est` stroka iz otritscatel`nih elementov');
end
else 
begin if (i=k)then
  FlagM:=false ;
  writeln ('Net stroka iz otritscatel`nih elementov ')
end;
if (FlagKr=True)then
begin
write(' Est` stroka iz elementov kratnih ');
write(g);
writeln(' ili 6');
end
else
begin if (i=k)then begin
     FlagKr:=false ;
  write ('Net stroki iz elementov kratnih ');
  write(g);
  writeln(' ili 6'); 
end;
end.