Блок-схемы.

@Na Ta Li · Регистрация: 29.11.2009

Author24 — интернет-сервис помощи студентам

у меня к вам такая просьбочка... помогите блок-схему нарисовать к программе:

Pascal

Program P3;
Const N=4;
Var
A: array[1..N,1..N] of real;
i,j : integer;
b: real;
begin
for i:=1 to N do
begin
for j:=1 to N do
read(A[i,j];
writeln;
end;
for i:=1 to N do
for j:=1 to N do
If i>j then
Begin
b:=A[i,j];
A[i,j]:= A[j,i];
A[j;i]:=b;
End;
For i:=1 to N do
Begin
For j:=1 to N do
Write(A[I,j]:3:0,’ ‘);
Writeln;
End;
End.

Заранее благодарна...

@Шутка · 29.11.2009, 20:03

одно дело вы не понимаете как делать, а другое - "запарились".
в первом случае без проблем, во втором - извините.

@Na Ta Li · 29.11.2009, 20:04 **[ТС]**

я не понимаю

@Давид · 29.11.2009, 21:45

Na Ta Li,
Вот...пожалуйста...только переделайте к более наглядному виду - которому учат.

@Na Ta Li · 29.11.2009, 22:07 **[ТС]**

всем всем спасибо!!!

@Шутка code code 128 / 123 / 77 Регистрация: 11.10.2009 Сообщений: 375
	29.11.2009, 20:03	2
	одно дело вы не понимаете как делать, а другое - "запарились". в первом случае без проблем, во втором - извините. 0

@Na Ta Li 0 / 0 / 0 Регистрация: 29.11.2009 Сообщений: 9
	29.11.2009, 20:04 [ТС]	3
	я не понимаю 0

@Na Ta Li 0 / 0 / 0 Регистрация: 29.11.2009 Сообщений: 9
	29.11.2009, 22:07 [ТС]	5
	всем всем спасибо!!! 0