Информатика, опубликовано 18.04.2019 06:30
Дан массив целых чисел, состоящий из 30 элементов. заполнить его с любым удобным для вас способом. найти: сумму элементов массива, имеющих нечетное значение; вывести индексы тех элементов, значения которых больше заданного
числа а (а вводится с клавиатуры); определить, есть ли в данном массиве положительные элементы, кратные k ( k вводится с клавиатуры)
Ответ оставил: Гость
Pascalabc.net 3.4.2, сборка 1887 от 30.11.2018 внимание! если программа не работает, обновите версию!
begin
var a : = arrrandom(30, -50, 50);
a.println;
writeln('сумма нечетных значений равна ', a.where(t -> t.isodd).sum);
var n : = readinteger('a=');
print('искомые индексы: ');
a.select((v, i)-> (v, i + (t -> t[0] > n)
.select(t -> t[1]).println;
n : = readinteger('k=');
if a.any(t -> t mod n = 0) then println('есть кратные')
else println('нет кратных')
end.
Информатика, опубликовано 09.01.2019 16:01
Информатика, опубликовано 09.01.2019 16:01
Информатика, опубликовано 09.01.2019 16:01
Информатика, опубликовано 09.01.2019 16:01