блок схема

@wizo · Регистрация: 25.05.2011

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

Pascal

program variant3;
uses crt;
var
a: array[1..100,1..100] of integer;
i,j,n,p: byte;
r: integer;
begin
clrscr;
randomize;
write('n: ');
readln(n);
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=random(61)-30;
write(a[i,j]:4);
end;
writeln;
end;
writeln;
write('p: '); 
readln(p);
for i:=1 to n do
begin
r:=a[p,i];
a[p,i]:=a[i,p];
a[i,p]:=r;
end;
 
for i:=1 to n do
begin
for j:=1 to n do
write(a[i,j]:4);
writeln;
end;
readln
end.

Добавлено через 2 часа 30 минут
сделайти блок схему

@Amid007 · 27.05.2011, 15:20

вот посмотрите

	27.05.2011, 15:20