![]() |
|
#12
|
||||
|
||||
![]() Код:
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 L, i: Integer; AN: Array of Integer; begin Writeln('Введите размер массива'); Readln(L); SetLength(AN, L); Writeln('Введите элементы массива'); for i:=0 to L - 1 do Readln(AN[i]); ChangeFirstChars(AN); Writeln('Результат'); for i:=0 to L - 1 do Writeln(AN[i]); Readln; end. Что делать, когда сломался комп: 1. Если вы юзер - делать ноги. 2. Если ремонтник - делать деньги. 3. Если вы программист - делать вид, что так было задумано. |