Program;
var i,x,y:integer;
Begin
for i:= 0 to 10 do;
begin;
read(x);
y:=x+1;
end;
writeln(y);
End.
Var
i,s:integer;
begin
writeln('Введите стоимость');
readln(s);
for i:=1 to 10 do
writeln(i*s);
<span>end.</span>
Косинус положителен от -90 до 90 градусов, от -π/2, до π/2.
Если у тебе даны x и y, то x должен быть положительным, а y любым.
Фото:
http://www.uznateshe.ru/wp-content/uploads/2012/08/znakicos2.png
Все довольно просто, берем и сдвигаем элементы массива с конца, до момента где нам нужно вставить элемент, ну и не забываем о размере массива.
1. var
i:integer;
begin
for i:=1 to 10 do
begin
writeln (i, sqr(i));
readln;
end.
2. var
i:integer;
begin
for i:=2 to 20 do
begin
if sqr(i) div 2 = 0 then
write (i, ' = 'sqr(i) );
end;
readln;
end.