1.тема циклы со сщетчиком.Написать программу в паскале для ввода с клавиатуры 15 чисел и вывода номеров отрицательных элементов.

 

2.написать программу в паскале

f(x)=2(sin*sin)x+1

 

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;beginf:=2*sin(x)*sin(x)+1;end;

var x:real;

beginreadln(x);writeln(f(x));end.