1. дан массив натуральных чисел. напечатать все элементы массива,являющиеся двузначными числами. 2. дан массив. напечатать четные элементы. 3.все элементы массива с четными номерами удвоить, с нечетными - уменьшить на 1.
177
380
Ответы на вопрос:
1)
for i : = 1 to n do
read(a[i]);
for i : = 1 to n do
if (a[i] div 100 = 0)and(a[i] div 10 > 0) then
write(a[i], ' ');
2)
for i : = 1 to n do
read(a[i]);
for i : = 1 to n do
if (a[i] mod 2 = 0) then
write(a[i], ' ');
3)for i : = 1 to n do
read(a[i]);
for i : = 1 to n do
if (a[i] mod 2 = 0)then
a[i] : = a[i]*2
else
a[i] : = a[i] - 1;
for i : = 1 to n do
wirte(a[i]);
Популярно: Информатика
-
Craftrik22.01.2022 21:22
-
лаброри31.05.2020 22:08
-
iDanee26.05.2021 18:17
-
ChaffaYT28.03.2023 16:17
-
Esken21314115.12.2022 13:07
-
perrrii14.07.2021 21:19
-
prkf23.06.2020 07:51
-
Volkov182226.11.2020 01:16
-
Ахамад26.11.2022 20:45
-
nastyayakushka214.09.2021 07:51