Вместо Х там должно быть 2
// PascalABC.NET 3.1, сборка 1219 от 16.04.2016
begin
var b:array[1..10] of integer;
for var i:=1 to 10 do begin
b[i]:=i; Write(b[i],' ')
end
end.
<u><em>Результат:</em></u>
1 2 3 4 5 6 7 8 9 10
Совсем ничего не видно.
Можно без отметить нарушение?
// PascalABC.NET 3.3, сборка 1611 от 06.01.2018
// Внимание! Если программа не работает, обновите версию!
1)
begin
var x := ReadReal('x =');
Writeln(abs(x**2 - x**3) - 7*x/(x**3 - 15*x));
end.
2)
begin
var x := ReadReal('x =');
if (x <= 0) then
Writeln(0)
else
if (x <= 1) then
Writeln(x)
else
Writeln(x**4);
end.
<span>const n = 5; var a: array[1..n] of integer;
i, k: integer;
s: real;
begin
s := 0;
for i := 1 to n do
begin
readln(a[i]);
s := s + a[i];
end;
s := s / n;
writeln('Среднее значение = ', s:0:3);
k := 1;
for i := 2 to n do
if abs(a[k] - s) > abs(a[i] - s) then k := i;
writeln('Индекс элемента: ', k, ' Значение = ', a[k]);
end.</span>