Ответы
Ответ дал:
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
Хотите, чтобы писали на доступном Вам уровне - указывайте его в вопросе.
Вас заинтересует
1 год назад
1 год назад
1 год назад
8 лет назад
8 лет назад
8 лет назад