Задание:
Составить алгоритм и программу поиска отрицательных элементов массива Q из 18 чисел. Значения элементов массива рассчитать по формуле tgB, где В номерэлемента массива
Решение:
Uses crt; var q: array [1… 18] of real; b: integer; begin for b: =1 to 18 do begin q[b]: =sin (b) /cos (b); writeln ('Q[',b,']: ',q[b]: 7:3); end; end.
Знаете другой ответ?