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

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

Задать свой вопрос
Вова Ронский-Славкин
Пример можно?
2 ответа
// PascalABC.NET 3.3, сборка 1583 от 25.11.2017
// Внимание! Если программка не работает, обновите версию!

begin
  var a:=SeqRandom(ReadInteger('n='),-99,99).Select(t-gt;t/10).ToArray;
  a.Println;
  a.Transform(t-gt;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
Гена Базев
Такие команды в 9 классе не проходят :(
Боря Топчилов
чем тебя мой ответ не устроил?(
Василий Хрони
Ну вот первый ответ написан на понятных командах, и в принципе все хорошо, спасибо
Сделал как сообразил:
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.

, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт