Построить блок схему

[Антон)]

Я составил программу, но не могу построить блок схему. Помогите пожалуйста.

[IT-man]

Я составил программу

А теперь запости ее код сюда! и получишь схему

[Serge_Bliznykov]

Я составил программу

судя по скриншоту, Вы не только составили программу,
но и опубликовали ещё в какой-то книжке/методичке....

[Антон)]

 Program mt;
Var
    a:array[1..10,1..10] of integer;
    i,j, max1,max2,max3,max4:integer;
Begin
  for i:=1 to 10 do 
  for j:=1 to 10 do begin
       a[i,j]:=random (30);
       writeln ('a(', i,',', j,')=', a[i,j])
                         end;
max1:=a[2,1]; max2:=a[1,2];
max3:=a[2,10]; max4:=a[10,2];
 for i:=1 to 10 do 
 for j:=1 to 10 do begin 
    if (i<j) and (i+j<n+1) then 
               if a[i,j]>max1 then 
                               max1:=a[i,j];
if (i<j) and (i=j<n+1) then 
                  if a[i,j]>max2 then max2:=a[i,j];
if (i<j) and (i+j>max3 then max3:=a[i,j];
If (i>j) and (i=j>n+1) then max4:=a[i,j];
                         end;
writeln ('max в 1 четверти' ,max1);
writeln ('max в 2 четверти' ,max2);
writeln ('max в 3 четверти' ,max3);
writeln ('max в 4 четверти' ,max4);
End.

[Антон)]

Не, это ведь копия, а оригинал я учителю отдал.

[Serge_Bliznykov]

программа написана с ошибками (мелкими, конечно, но всё таки..):
1) если используется генератор случайных чисел Random, то его в начале программы крайне желательно иницилизировать.
для этого предназначена процедура Randomize;

2) в коде программы используется идентификатор n
он нигде не задан.

3) при наборе программы допущены опечатки:

if (i<j) and (i=j<n+1) then 
         if a[i,j]>max1 then 

....
if (i<j) and (i=j<n+1) then

блин.... там и дальше ошибок набора полно...

ладно. пользуйтесь моей добротой.
вот код:

program mt;
const n = 10;
var
  a: array[1..10, 1..10] of integer;
  i, j, max1, max2, max3, max4: integer;
begin
  Randomize;
  for i := 1 to 10 do
    for j := 1 to 10 do begin
      a[i, j] := random(30);
      writeln('a(', i, ',', j, ')=', a[i, j])
    end;
  max1 := a[2, 1]; max2 := a[1, 2];
  max3 := a[2, 10]; max4 := a[10, 2];
  for i := 1 to 10 do
    for j := 1 to 10 do begin
      if (i > j) and ( (i + j) < (n + 1)) then
        if a[i, j] > max1 then
          max1 := a[i, j];
      if (i < j) and ((i + j) < (n + 1)) then
        if a[i, j] > max2 then 
          max2 := a[i, j];
      if (i < j) and ((i + j)>(n + 1)) then
        if a[i, j] > max3 then 
          max3 := a[i, j];
      if (i > j) and ((i + j) > (n + 1)) then 
        if a[i, j] > max4 then 
          max4 := a[i, j];
    end;
  writeln('max в 1 четверти ', max1);
  writeln('max в 2 четверти ', max2);
  writeln('max в 3 четверти ', max3);
  writeln('max в 4 четверти ', max4);
end.

[IT-man]

Вот так вроде

[Антон)]

Спасибо вам большое! Я не асс в программировании

[IT-man]

Я не асс в программировании!

Для построения Блок схем по коду Не надо быть Ass-ом))) надо только уметь Гуглить)