Замените все элементы массива ** их дробную часть

Question

Замените все элементы массива на их дробную часть

Comments

Пример можно?

Answer 1

// PascalABC.NET 3.3, сборка 1583 от 25.11.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=SeqRandom(ReadInteger('n='),-99,99).Select(t->t/10).ToArray;
  a.Println;
  a.Transform(t->Frac(t)); a.Println
end.

Пример
n= 10
-6.7 3.5 0.4 2.6 -1.7 5.4 0.5 1 3 -0.3
-0.7 0.5 0.4 0.6 -0.7 0.4 0.5 0 0 -0.3

Comments

Такие команды в 9 классе не проходят :(

---

чем тебя мой ответ не устроил?(

---

Ну вот первый ответ написан на понятных командах, и в принципе все хорошо, спасибо

Answer 2

Сделал как понял:
var i,n:integer;
a:array[1..100] of real;
begin
write('Write size array: '); readln(n);
for i:=1 to n do
 begin
 a[i]:=-20+40*random;
write(a[i]:7:2);
end;
writeln;
for i:=1 to n do
begin
a[i]:=frac(a[i]);
write(a[i]*100:7:0);
end;
end.