Предмет: Информатика,
автор: DanyaHD
Замените все элементы массива на их дробную часть
Ответы
Автор ответа:
0
// 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
// Внимание! Если программа не работает, обновите версию!
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
Автор ответа:
0
А если учитель "застрял" в своих знаниях в далеком 1974 году, когда Н.Вирт описал свой первый компилятор с Паскаля, то это его проблемы и ваша беда.
Автор ответа:
0
Ну вот первый ответ написан на понятных командах, и в принципе все хорошо, спасибо
Автор ответа:
0
То, что непонятно Вам, вовсе не означает, что непонятно всем. Читайте выше - это Ваша беда. И только Ваша.
Автор ответа:
0
Хотите, чтобы писали на доступном Вам уровне - указывайте его в вопросе.
Похожие вопросы
Предмет: Українська мова,
автор: sopigakata96
Предмет: Информатика,
автор: koselhasta
Предмет: Математика,
автор: tarasovr141
Предмет: Алгебра,
автор: WALE9SkoKOj1odanc
Предмет: Химия,
автор: Аноним