Ответы на вопрос:
Программа:
Pascal:
const arr: array[1..10] of integer = (-5, 2, 4, -6, 12, 10, -3, 12, 15, 2);
var max1, max2: integer;
begin
max1 := arr.max;
max2 := -MAXINT;
for var i := 1 to 10 do
if (arr[i] > max2) and (arr[i] <> max1) then max2 := arr[i];
writeln(arr, #10, max1 + max2);
end.
Популярно: Информатика
-
perrezz02.08.2022 15:45
-
sveta46526.11.2020 22:15
-
antarxanoff200130.06.2020 09:15
-
Gregory1507.04.2020 09:00
-
kino201112.05.2022 18:22
-
ZHICH22.06.2023 14:13
-
ilmasha2423.10.2020 15:25
-
надя748805.01.2021 12:50
-
sofisofiyaSofi10.04.2020 00:33
-
ffggghhhd18.07.2021 21:30