Сpascal ! : массив а задается с клавиатуры. создайте массив б состоящий из четных чисел массива а. (отвечу взаимной по другим предметам ! заранее ! p.s. , , не отвечайте ради дело серьёзное )
100
268
Ответы на вопрос:
Const n=10; var a,b: array[1..n]of integer; i,k: integer; begin for i: =1 to n do read(a[i]); for i: =1 to n do if a[i] mod 2=0 then begin k: =k+1; b[k]: =a[i]; end; writeln; for i: =1 to k do write(b[i]: 4); end.
Популярно: Информатика
-
Anatoliy111111128.11.2021 12:29
-
Sravkur07.08.2020 07:03
-
kamilaiks46623.05.2021 18:42
-
pula0418.01.2023 01:52
-
НастяMokrik14.03.2021 03:44
-
Willowchops07.06.2020 04:58
-
safaannainfinity26.08.2020 10:30
-
dominikakrestina22.05.2021 11:33
-
sddnblck03.01.2020 04:13
-
Финн201414.03.2020 01:48