Run Code  | API  | Code Wall  | Misc  | Feedback  | Login  | Theme  | Privacy  | Patreon 

zadacha9

const n=5;
ver m:array [1..n] of integer;
i:integer;
begin
randomize;
for i:=1 to n do
begin 
m[i]:=random(11)-5;
writeln(m[i]);
end;
for i:=1 to n do 
if m[i]<0 then m[i]:=sqr(m[i]);
for i:=1 to n do writeln(m[i]);
end.
 run  | edit  | history  | help 0