Дан массив, состоящий из 10 целых чисел. Элементы массива могут принимать Значения от 10 до 1000. Найти и вывести сумму наибольшего элемента массива кратного трем и наименьшего элемента массива, оканчивающегося на 7.
124
342
Ответы на вопрос:
prorgam sp;
var A: array [1..10] of integer;
I,S: integer;
begin I:=0;
for I:=1 to 10 do S:=S+A[I];
writeln (S);
end.
Объяснение:
PascalABC.Net
begin
var a := ArrRandom(10, 10, 1000);
Println('Исходный массив:', a);
Println('Сумма: ', (a.Where(x -> x mod 3 = 0).Max) + (a.Where(x -> x mod 10 = 7).Min));
end.
голливуд, в катологе фантастика создали подкаталог голивуд и туда переместили трансформеры.doc
Популярно: Информатика
-
Стариат30.04.2023 23:20
-
pmangaskin23.08.2021 07:19
-
Lalalila03denchik17.02.2023 09:52
-
Bagila123403.03.2021 11:49
-
KekLol8910.08.2021 14:48
-
mankoyana20.03.2022 22:42
-
ImHappy10202.09.2020 08:05
-
1ЛиКа618.04.2022 06:04
-
Ozerck200202.09.2022 02:04
-
nikspirin21.03.2022 17:35