Ne razumem sta na sta mislis...
Evo ceo program
Code:
program ime;
uses crt;
var
s,a,r:string;
i,n,j:integer;
c:array[1..10] of string;
begin
clrscr;
writeln('Unesi ime i prezime osobe ');
readln(s);
a:=s;
c[1]:='a';
c[2]:='e';
c[3]:='i';
c[4]:='o';
c[5]:='u';
c[6]:='A';
c[7]:='E';
c[8]:='I';
c[9]:='O';
c[10]:='U';
writeln('Znakova ima: ',length(s));
for i:=1 to length(s) do
begin
for j:=1 to 11 do
if s[i]=c[j] then
begin
n:=n+1;
delete(s,i,1);
end;
end;
writeln('Samoglasnika ima: ',n);
writeln('Novi string: ',s);
for i:=length(a) downto 1 do
write(a[i]);
repeat until keypressed;
end.
Ako treba neki postupak da ti objasnim, reci
p.s: i da...nemoj se nervirati :D