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
5161
practica 3 ejercicio 1
naloga 3 za janjo
1
Dd
Calculatrice (case of)
Сортировка массива цифр
Урок 3 задача 1 повышенная сложность. Задача 1484. Усложнённая.
Compteur
123456