Шестиклассники аня боря вася галя даша и иван получили в подарок флешки на 1 2 4 8 16 32 гигабайта выясните кто из получил флешку с самого большого и кто самого маленького объема если известноследующее: у ани объем флешки меньше чем у бори, у васи больше чем у гали , у даши меньше чем у ивана у васи меньше чем у ани ,у даши больше чем у бори
242
282
Ответы на вопрос:
Type v = array of integer; function prodpos(a: v): longint; var i: integer; begin result : = 1; foreach var p: longint in a do if p > 0 then result : = result * p end; procedure initmas(var a: v; title: string); var i: integer; begin writeln(title, '(', length(a, 0), '). вводите элементы.'); for i : = 0 to length(a, 0) - 1 do read(a[i]) end; procedure getmas(var a: v; dim: integer; title: string); begin setlength(a, dim); initmas(a, title); end; const n1 = 10; n2 = 15; var a, b: v; begin getmas(a, n1, 'массив а'); getmas(b, n2, 'массив b'); writeln('большее произведение положительных ', max(prodpos(a), prodpos( end. тестовый прогон: массив а(10). вводите элементы. 1 1 1 1 2 1 2 2 1 5 массив b(15). вводите элементы. 1 0 2 4 0 1 -3 -4 1 2 3 1 -3 0 2 большее произведение положительных 96
Популярно: Информатика
-
Nikita4324224.02.2022 23:41
-
777SwimmeR77721.09.2022 08:38
-
toktasynnazerke29.11.2020 18:43
-
Xcalibur20.09.2022 12:52
-
анна221623.12.2021 05:14
-
Corrnet199920.11.2021 17:27
-
foximmortal26.03.2020 03:47
-
kpodavilnikova24.05.2023 23:04
-
7Alsu17.02.2022 03:43
-
sevara1718.04.2022 22:43