Const a=-1; b=2; h=0.3;
var x,s:real;
i,n:integer;
begin
x:=a-h;
n:=round((b-a)/h)+1;
for i:=1 to n do
begin
x:=x+h;
s:=sin(1/x)/cos(1/x)+2*cos(x/2);
writeln(x:5:1,' ',s:6:3);
end;
end.
Результат:
-1.0 0.198
-0.7 -5.105
-0.4 2.707
-0.1 1.349
0.2 -1.391
0.5 -0.247
0.8 4.852
1.1 2.989
1.4 2.397
1.7 1.987
2.0 1.627
1 задача
var a, b, s, i, k:integer;
z:array[1..10] of integer;
begin
s:=1;
For i:=1 to 10 do
begin
z[i]:=random(16)-10;
if z[i]<0 then
begin
k:=sqr(z[i]);
s:=s*k;
end;
end;
For i:=1 to 10 do
begin
write (z[i], ' ');
end;
writeln ();
writeln ('Произведение квадратов равно ', s);
<span>end.</span>
В.в 33333333333333333333333333333333
то что параметр цикла не в заголовке это не ошибка, но настоятельная рекомендация, а ошибка у вас в том, что вы не выделили память под динамический массив, a:=new integer[n] (или SetLength(a,n)). И, поскольку индексация элементов в динамических массивах начинается с 0, то в цикле For верхняя граница параметра i должна быть на 1 меньше n, то есть For i:=0 to n-1.
1. 16-57, 8-127, 2-1010111
2. 58
3. 817