Из элементов массива с сформировать массив а такого же размера по правилу: если номер четный, то а[i]=c[i]/2, если не четный то а[i]=2*c[i]"

Var a, c : array of integer; n, i : integer; begin   read(n);   setlength(a, n + 1);   setlength(c, n + 1);   for i: =1 to n do     read(c[i]);   for i: =1 to n do     if (i mod 2 = 0) then       a[i] : = c[i] div 2     else       a[i] : = 2 * c[i];   for i: =1 to n do     write(a[i], ' '); end.

Вравностороннем треугольнике все три угла равны между собой и равны 60 градусов. в равнобедренном треугольнике два угла равны между собой и оба острые. в прочих треугольников значения всех трех углов различаются между собой. эффективность алгоритма решения напрямую зависит от того, насколько успешно производится сравнение углов. первый вариант программы (логика если-то-иначе) program v1; var   a, b, c: real; begin   write('введите значения углов треугольника в градусах: ');   readln(a, b, c);   if a = b then       if a = c then writeln('треугольник равносторонний')       else writeln('треугольник равнобедренный')   else   if a = c then writeln('треугольник равнобедренный')       else   if b = c then writeln('треугольник равнобедренный')   else writeln('все стороны треугольника имеют различную длину') end. второй вариант программы (логические выражения) program v2; var   a, b, c: real; begin   write('введите значения углов треугольника в градусах: ');   readln(a, b, c);   if (a = b) and (a = c) then writeln('треугольник равносторонний')   else   if (a = b) or (a = c) or (b = c) then writeln('треугольник равнобедренный')   else writeln('все стороны треугольника имеют различную длину') end. тестовое решение: введите значения углов треугольника в градусах: 75 30 75 треугольник равнобедренный

Const eps=1e-8; var a,b,c: real;       s1,s2,s3: integer; begin read(a); read(b); read(c); if a> 0 then s1: =s1+1; if b> 0 then s1: =s1+1; if c> 0 then s1: =s1+1; if a< 0 then s2: =s2+1; if b< 0 then s2: =s2+1; if c< 0 then s2: =s2+1; if frac(a)< eps then s3: =s3+1; if frac(b)< eps then s3: =s3+1; if frac(c)< eps then s3: =s3+1; writeln('число положительных чисел =  ',s1); writeln('число отрицательных чисел =  ',s2); writeln('число целых  чисел =  ',s3); end. /* для подсчета целых чисел использовалась функция frac - она возвращает дробную часть числа. при сравнении дробных чисел полезно отсекать разряды после скажем 8 знака после запятой, что и было сделано путем введения константы eps . */