var
a: array[1..1000] of real;
i, k, n, z: integer;
begin
writeln('введите число n: ');
readln(n);
writeln('введите число z: ');
readln(z);
writeln('введите ',n,' действительных чисел (каждое с новой строки): ');
for i : = 1 to n do
begin
readln(a[i]);
if a[i] > z then
begin
a[i] : = z;
k : = k + 1;
end;
end;
writeln('количество замен: ', k);
end.
// PascalABC.NET 3.2, сборка 1383 от 09.02.2017
begin
for var i:=1 to 30 do begin
var x:=0.1*(i-1)+0.1; var y:=1-sin(x)/(1-ln(x+0.1));
Writeln(x:3:1,y:15:5)
end
end.
Результат
0.1 0.96174
0.2 0.90986
0.3 0.84579
0.4 0.77000
0.5 0.68267
0.6 0.58380
0.7 0.47331
0.8 0.35102
0.9 0.21667
1.0 0.06988
1.1 -0.08992
1.2 -0.26355
1.3 -0.45217
1.4 -0.65751
1.5 -0.88208
1.6 -1.12960
1.7 -1.40571
1.8 -1.71913
1.9 -2.08389
2.0 -2.52355
2.1 -3.08055
2.2 -3.83866
2.3 -4.98810
2.4 -7.06916
2.5 -12.45227
2.6 -75.39064
2.7 15.42904
2.8 6.17670
2.9 3.42616
3.0 2.07396