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

Question

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

Экономика

Гость

Ответ(ы) на вопрос:

Accepted Answer

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.