Значение массива A размеров 5 задаются с цикла в данном фрагменте программы:
for I:=1 to 5 do
begin
if ((I mod 3) = 1) or ((I mod 2) = 0) then A[I]:= I * (5 - I)
else A[I]:= I * (4 - I)
end;
Сколько элементов массива будут иметь отрицательные значения?
ga,ma,sa,gb,mb,sb,gg,mg,sg:real;
begin
write('a='); readln(a);
write('b='); readln(b);
write('c='); readln(c);
alfa:=arccos((b*b-c*c+a*a)/(2*b*c))*180/pi;
ga:=int(alfa);
ma:=int(frac(alfa)*60);
sa:=frac(frac(alfa)*60);
writeln('alfa = ',ga:3:0,' gr ',ma:3:0,' min ',sa:3:1,' sec');
beta:=arccos((c*c-b*b+a*a)/(2*c*a))*180/pi;
gb:=int(beta);
mb:=int(frac(beta)*60);
sb:=frac(frac(beta)*60);
writeln('beta = ',gb:3:0,' gr ',mb:3:0,' min ',sb:3:1,' sec');
gamma:=arccos((c*c-a*a+b*b)/(2*c*b))*180/pi;
gg:=int(gamma);
mg:=int(frac(gamma)*60);
sg:=frac(frac(gamma)*60);
writeln('gamma = ',gg:3:0,' gr ',mg:3:0,' min ',sg:3:1,' sec');
end.
Пример:
a=3
b=4
c=5
alfa = 90 gr 0 min 0.0 sec
beta = 53 gr 7 min 0.8 sec
gamma = 36 gr 52 min 0.2 sec