[raggazi]

Код:

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

function ChangeFirstChar(N: Integer): Integer;
begin
if StrToInt(IntToStr(N)[1]) mod 2 = 0 then
Result:=StrToInt(IntToStr(StrToInt(IntToStr(N)[1])*2) + Copy(IntToStr(N), 2, Length(IntToStr(N))))
else
Result:=N;
end;
procedure ChangeFirstChars(var AN: Array of Integer);
var
i: Integer;
begin
for i:=Low(AN) to High(AN) do
AN[i]:=ChangeFirstChar(AN[i])
end;
var
AN:integer;
x,N,i:integer;
begin
write('vvedite 4islo= ');
readln(N);
write('vvedite mass= ');
readln(AN);
x:=ChangeFirstChar(N);
writeln('izm= ',x);

помогите вывести массив преобразованный

пользуемся тэгами