1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17 Var A:array[1..100] of integer;
i,n:byte;
Begin
write('Введите размерность: ');readln(n);
For i:=1 to n do
Begin
write('A[',i,'] = ');
readln(A[i]);
End;
writeln('Преобразованный');
For i:=1 to n do
Begin
if A[i] mod 10 = 4 then A[i]:=A[i]-2;
write(A[i]:4);
End;
readln;
End.