Question

Очень ! Написать программы на Pascal abc:
1)Массив А задан случайным образом из промежутка от -20 до 20. Найти сумму элементов, которые оканчиваются на число 2 и вывести ее на экран.
2)Дан массив из 10 элементов, заданных случайным образом из промежутка от  -10 до 10. Найти и вывести на экран номера отрицательных элементов, значения которых являются нечетными числами.

Answer 1

PascalABC

Объяснение:

1)

begin

   WriteLn('Введите размер массива N: ');

   var n := ReadInteger;;

   var a := ArrRandomInteger(n, -20, 20);

   a.PrintLn;

   WriteLn('Сумма элементов, которые оканчиваются на число 2, равна ', a.Where(x -> (x mod 10 = 2) or (x mod 10 = -2)).Sum);

end.

2)

begin

   var a := ArrRandomInteger(10, -10, 10);

   a.PrintLn;

   WriteLn('Индексы отрицательных нечетных элементов:');

   foreach var i in a.Indices do

     if (a[i].IsOdd) and (a[i] < 0) then Write(i, ', ');

end.