Заданы 2 одномерных массива. сформировать третий из элементов с нечетными индексами обоих массивов и положительных элементов второго массива
137
378
Ответы на вопрос:
Const n=5; var i,q: integer; a: array [1..n] of integer; b: array [1..n] of integer; c: array [1..50] of integer; begin writeln ('заполните первый массив'); for i: =1 to n do read (a[i]) ; writeln ('заполните второй массив') ; for i: =1 to n do read (b[i]); for i: =1 to n do begin if i mod 2< > 0 then begin q: =q+1; c[q]: =a[i]; q: =q+1; c[q]: =b[i]; end; end; for i: =1 to n do if b[i]> 0 then begin q: =q+1; c[q]: =b[i]; end; if q=0 then writeln ('условие не выполняется') else begin for i: =1 to q do write (' ',c[i]); end end.p.s. вы можете изменять константу, и ограничивать вводимые значения вводом, но не забывайте, что первые два массива не должны превышать количество ячеек, ограниченной константой. можно эту константу поменять, это все на ваше усмотрение.p.p.s. программа написана на pascal abc.
Популярно: Информатика
-
hdjeugwcwtixuvbekz15.05.2022 08:35
-
zai4onok198813.12.2020 07:43
-
Улан14112.03.2020 07:55
-
плюскваммиперфекти08.06.2020 09:56
-
linamalina699614.07.2021 15:03
-
ghf818.01.2022 17:12
-
5862478948501.09.2021 22:45
-
ValiahmetovaKa09.06.2023 11:28
-
vladdubrovskiy105.03.2023 13:38
-
TATARIN00112.02.2021 12:01