Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
Angles
program uglovi; const pi=3.14; var a:array[1..50] of real; i,n,j:integer; min,max:real; begin writeln('Unesite niz uglova koje treba pretvoriti u radijane: '); i:=1; while not eoln(input) do begin read(a[i]); i:=i+1 end; n:=i-1; for i:=1 to n do a[i]:=a[i]*pi/180; writeln('Uglovi pretvoreni iz stepena u ardijane su: '); for i:=1 to n do write(a[i]:0:2,' '); writeln(); writeln('Ostri uglovi u nizu su: '); for i:=1 to n do if ((2*a[i])<=pi) then writeln(a[i]:0:2,' na poziciji ',i); min:=a[1];max:=a[1]; for i:=1 to n do begin if(a[i]<min) then min:=a[i]; if(a[i]>max) then max:=a[i] end; j:=0; for i:=1 to n do if not(a[i]=min) and not(a[i]=max) then begin j:=j+1; a[j]:=a[i] end; writeln('Nakon izbazivanja najmanjeg i najveceg ugla niz uglova je: '); for i:=1 to j do write(a[i]:0:2,' ') end.
run
|
edit
|
history
|
help
0
XEPBAN
Triangle.pas
Hello, 123
Hailstone number
1
135
1101010
kiem_tra_nguyen_to
basketball_player_training
Huong11a2@