Срочно нужна программа в Паскале!
1. Ввести массив а[1], а[2],..... а[n] целого типа и найти сумму квадратов всех элементов массива. Если она больше 100, то вывести ее на экран, в противном случае вывести на экран сам массив.
2. В одномерном массиве вещественных чисел вычислить сумму отицательных элементов, имеющих нечётные индексы.
Ответы
Ответ дал:
0
===== PascalABC.NET =====
1.
begin
var n := ReadInteger('n =');
var a := ReadArrInteger('Вводи:', n);
var s := a.Select(p -> p * p).Sum;
if s > 100 then
Println(s)
else
a.Println;
end.
2.
begin
var n := ReadInteger('n =');
var a := ReadArrReal('Вводи:', n);
var (s, i) := (0.0, 0);
while i <= n - 1 do
begin
if a[i] < 0 then
s += a[i];
i += 2
end;
Print(s)
end.
Похожие вопросы
1 год назад
1 год назад
2 года назад
2 года назад