begin for i:=1 to 10 do //for нельзя делать по дробным числам, поэтому будем в цикле делить на 10 begin a:=i; //integer это целочисленный тип, поэтому присваиваем его значение к переменной типа real write(sin(a/10),' ');//синус от положительного write(sin(-(a/10)),' ');//синус от отритцательного end;
2. Длинный "школьный" вариант ("почувствуйте разницу")
// PascalABC.NET 3.1, сборка 1230 от 27.04.2016 var a:array[1..50] of integer; i,s:integer; begin Randomize; s:=0; for i:=1 to 50 do begin a[i]:=Random(31)-10; Write(a[i],' '); if (a[i]>0) and Odd(i) then s:=s+a[i] end; Writeln; Writeln('Sпол.неч = ',s) end.
a:real;
begin
for i:=1 to 10 do //for нельзя делать по дробным числам, поэтому будем в цикле делить на 10
begin
a:=i; //integer это целочисленный тип, поэтому присваиваем его значение к переменной типа real
write(sin(a/10),' ');//синус от положительного
write(sin(-(a/10)),' ');//синус от отритцательного
end;
end.