Witam mam programik ktory czyta srodkowy znak wpisanego ciagu:
var
ciag :string;
procedure Srodkowy(ciag :string);
begin
if (length(ciag) mod 2) = 0 then
write('Nie ma elmentu srodkowego!')
else
write(ciag[(length(ciag) + 1) div 2]);
end;
begin
write('Podaj ciag znakow: ');
readln(ciag);
Srodkowy(ciag);
readln;
end.
I mam taki problem czy moglby ktos napisac jak ma wygladac taki sam programik tylko z wykorzystaniem Zmiennej Dynamicznej pewnie to jest proste ale takie mam zadanko a jestem zupelnie zielony w temacie z gory dziekuje za odp i pozdrawiam.