Паскаль
1. дан целочисленный массив а(10). заменить числом 1 все, равные нулю, элементы массива. новый массив вывести на печать.
2.напишите программу заполнения массива из 20 элементов по формуле а(х)=0,2х2-3х+0,1 и подсчёта суммы положительных элементов массива.
666deadlyshadow666
3
15.12.2019 21:45
3
Другие вопросы по теме Информатика
anastasiaKar01
30.08.2019 04:30
Урок541
30.08.2019 04:30
skyline12345
30.08.2019 04:30
2006veronika34
27.11.2021 20:16
BONDsCNOPCOI
27.11.2021 20:19
чапмит
27.11.2021 20:24
kViktoria2077
27.11.2021 20:25
Маслинка174
27.01.2020 19:30
Лагуна2222
27.01.2020 19:25
Популярные вопросы
- у Назові литературного твору (камінмй хрест)зазвичай сконцентрирована его...
1 - Вопросы по духовной сфере (обществознание 6 класс) ...
3 - Анжелика прочитала книгу за два дня В первый день она прочитала семь девятых...
2 - кто сделает ♡ поставлю и подпишусь человека читают сделайте...
3 - Яку масу розчину нітратної кислоти з масовою часткою розчиненої речовини 25.2%...
2 - Синквей по произведению болеро...
1 - ОБРАЗЕЦ: What time does Vicky get up? -She gets up at half7. 5:30 (go home)8....
1 - Қазақ тілі 5 сынып 10 жаттығу 135 бет...
1 - 10 предложений 2 Тайп на английском...
3 - Знайди ділене,якщо дільник дорівнює 45 неповна частка 19 а остача 24...
1
===== PascalABC.NET =====
begin
// 1
var a := ArrRandom(10, -9, 9);
a.Println;
a.Transform(p -> p =0 ? 1 : p);
a.Println;
// 2
var b := ArrGen(20, x -> 0.2 * x * x - 3 *x + 0.1);
b.Println;
b.Where(p -> p > 0).Sum.Println
end.