ТутРешу.Ру

Составить алгоритм и программу поиска отрицательных элементов массива…

Задание:

Составить алгоритм и программу поиска отрицательных элементов массива 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.




Знаете другой ответ?

Отправить свой ответ