3. Дан вектор А[20]. Разделить каждую компоненту вектора на разность между MAX и MIN компонентой данного вектора. Результирующий вектор отпечатать. Ну есть еще 2 задание коль вы 1 удалили. Извините если что не так, нам просто т...
3. Дан вектор А[20]. Разделить каждую компоненту вектора на разность
между MAX и MIN компонентой данного вектора. Результирующий вектор
отпечатать.
Ну есть еще 2 задание коль вы 1 удалили. Извините если что не так, нам просто такие задания задают.
Язык прог. PascalABC.Net
Гость
Ответ(ы) на вопрос:
ГостьЗадание 2.
// PascalABC.NET 3.2, сборка 1346 от 25.11.2016
// Внимание! Если программа не работает, обновите её версию!
begin
var a:=ArrRandom(5,1,30); a.Println;
var b:=ArrRandom(10,5,50); b.Println;
var c:=a+b; c.Println;
end.
Пример
14 16 8 3 21
30 32 8 36 31 34 49 38 39 21
14 16 8 3 21 30 32 8 36 31 34 49 38 39 21
Задание 3.
// PascalABC.NET 3.2, сборка 1346 от 25.11.2016
// Внимание! Если программа не работает, обновите её версию!
begin
var a:=ArrRandom(20,1,99); a.Println;
var d:=a.Max-a.Min;
var b:=a.Select(x->real(x/d)).ToArray; b.Println
end.
Пример
56 35 4 74 70 17 70 97 58 25 34 49 46 31 66 70 63 96 95 35
0.602150537634409 0.376344086021505 0.043010752688172 0.795698924731183 0.752688172043011 0.182795698924731 0.752688172043011 1.04301075268817 0.623655913978495 0.268817204301075 0.365591397849462 0.526881720430108 0.494623655913979 0.333333333333333 0.709677419354839 0.752688172043011 0.67741935483871 1.03225806451613 1.02150537634409 0.376344086021505
Не нашли ответ?
Похожие вопросы