Отчет по практике: Основы программирования

writeln('Ishodniy massiv: ');

for i:=1 to n do

begin

for j:=1 to m do

write(a[i,j]:3:0,' ');

writeln

end;

end;

Procedure W(Var a:mas);

var

i,j,n,m:integer;

begin

for i:=1 to n do

begin

for j:=1 to m do

if a[i,j]<0 then

begin

a[i,j]:=sqr(a[i,j]);

end

else

if a[i,j]>0 then

begin

a[i,j]:=sqrt(a[i,j]);

end;

end;

end;

procedure ViVod2(var a:mas);

var

i,j,n,m:integer;