13. Задать массив генератором случайных чисел в диапазоне (-35,35]. Найти сумму
элементов массива, стоящих на четных местах, и вывести на экран все элементы
массива, кратные 5. Решить в паскале
Ответы
Ответ дал:
1
===== PascalABC.NET =====
begin
var n := ReadInteger('n =');
var a := ArrRandom(n, -35, 35);
a.Println;
var s := 0;
for var i := 0 to a.High do
begin
if i.IsOdd then
s += a[i];
if a[i] mod 5 = 0 then
Print(a[i])
end;
Writeln;
Println('Сумма', s)
end.
Приложения:
![](https://st.uroker.com/files/5a2/5a27d8184eb3c31aaf029c28abe96043.jpg)
Вас заинтересует
4 месяца назад
5 месяцев назад
5 месяцев назад
2 года назад
2 года назад
7 лет назад