Как нарисовать алгоритм для программы?

01.01.2001

как нарисовать алгоритм для программы?
uses crt;
const n=4;

type mas=array[1..n,1..n] of integer;
const x:mas=(( -4, 3, -2,3),
( -2, 2, 1, 4),
( -5, 6, 9,-8),
( -4, 3, 0, 4));
a=-4;b=4;
var i,k,j:integer;
procedure vivod(x:mas);
begin
for i:=1 to n do begin
for j:=1 to n do write(x[i,j]:7);
writeln;
end;end;
Begin
clrscr;
writeln(' Дан массив: ');
vivod(x);
writeln;
readkey;
for j:=1 to n do
begin
k:=0;
for i:=1 to n do
if(x[i,j]>=a)and(x[i,j]<=b) then
begin
k:=k+1;
end;
writeln(' столбец ',j:2,' K=',k:2);
writeln;
readkey;end;
End.

  • ну, можно взять холс и кисточки и включить фантазию.. .
    или можно взять ГОСТ 19.701-90 и включить голову.
  • могу по Гост 19.701-90, пиши
  • Если ещё актуально - пиши на почту, помогу.

Вас заинтересует