Дан массив чисел. Все элементы, оканчивающиеся цифрой4, уменьшить вдвое (с помощью функции)

Question

Информатика

Владимирыч

4 апреля, 04:11

Дан массив чисел. Все элементы, оканчивающиеся цифрой4, уменьшить вдвое (с помощью функции)

+2

Ответы (1)

Знаете ответ?

Светлана · Answer 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.