1.тема циклы со сщетчиком.Написать программу в паскале для ввода с клавиатуры 15 чисел и вывода номеров отрицательных элементов. 2.написать программу в паскале f(x)=2(sin*sin)x+1

Question

1.тема циклы со сщетчиком.Написать программу в паскале для ввода с клавиатуры 15 чисел и вывода номеров отрицательных элементов. 2.написать программу в паскале f(x)=2(sin*sin)x+1

Гость

Ответ(ы) на вопрос:

Accepted Answer

var a:array[1..15]of integer; i:integer; begin for i:=1 to 15 do if a[i]<0 then write(i,' '); end. function f(x:real):real; begin f:=2*sin(x)*sin(x)+1; end; var x:real; begin readln(x); writeln(f(x)); end.