Встречено : = а ожидался оператор: условие: дан массив заполненный по формуле cos(x/3), определить количество его положительных элементов кратных 3 программа program fa; var a: array [1..10] of integer; i, n: integer; begin writeln('введи элементы массива? '); for i : = 1 to 5 do begin writeln('a[',i,']='); readln(a[i]); end; for i : = 1 to 5 do if (a[i]: =cos(a[i]/3))= 0 then inc(n); writeln('кратных 3: ', n); end.

gladiatorcor    2   12.05.2019 10:42    2