Паскаль
1. Дан целочисленный массив А(10). Заменить числом 1 все, равные нулю, элементы массива. Новый массив вывести на печать.
2.напишите программу заполнения массива из 20 элементов по формуле а(х)=0,2х2-3х+0,1 и подсчёта суммы положительных элементов массива.
28461739372:
А в задании не написано
С 0
Да
Ответы на вопрос
Ответил BobbyFresnel
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.
Приложения:
Новые вопросы
Биология,
1 год назад
История,
1 год назад
Алгебра,
1 год назад
Математика,
1 год назад
Английский язык,
6 лет назад
Немецкий язык,
6 лет назад