Дан массив чисел.все элементы,оканчивающиеся цифрой4,уменьшить вдвое (с функции)
TigerForceCasual
1
02.03.2019 22:20
5
Другие вопросы по теме Информатика
БЕКА200420042004
18.04.2019 13:42
максаткайрат
18.04.2019 13:35
saaxst
07.08.2019 19:00
Dan1L1an
04.10.2020 22:30
apexXx
04.10.2020 22:30
кор17
04.10.2020 22:32
ikotelevskaya78
04.10.2020 22:33
марго409
04.10.2020 22:37
Популярные вопросы
- Характер соловья со сказки соловей и роза...
3 - Я УМОЛЯЮ УЧИТЕЛЬ ПРОСИТ А Я НЕ ШАРЮ...
2 - П 7. Прочитай, как надо готовиться к репортажу. Подготовь репортаж....
1 - 9.2. Восприятие предметов больше всего зависит: а) от качества ощущений...
2 - План твору на тему прибирання...
3 - Очень точка А не лежит в плоскости а. из точки А проведена наклонная...
1 - елемент перебуває в 4 групі періодичної таблиці.Відносна молекулярна...
1 - Сөз құрамына талдау Маңыздылыққа, қажеттіліктеріне, қалдықтардың,...
1 - Какая из этих последовательностей поступенная? а)Ре, Ми, Соль, Си,...
2 - 1 Определить без взвешивания вес алюминиевого слитка объёмом 0,001835...
1
var
i:integer;
a:array[1..20] of integer;
function fn(x:integer):integer;
begin
if x mod 10 = 4 then fn:=x div 2
else fn:=x;
end;
begin
for i:=1 to 20 do
readln(a[i]);
for i:=1 to 20 do
begin
a[i]:=fn(a[i]);
writeln(a[i]);
end;
end.