Houssey
Moderator
 Din: Buzau
Inregistrat: acum 17 ani
Postari: 260
|
|
{22. Fie un vector de litere mari. Sa se afiseze literele din vector ce preced in alfabet o litera data, introdusa de la tastatura.} var a:array[1..27] of char; i,n:integer; t,k:char; s:boolean; begin repeat write('nr de litere al vectorului=');readln(n); until (n>0) and (n<27); i:=1; repeat begin write('a[',i,']=');readln(a[i]); end; if (a[i]<='Z') and (a[i]>='A') then i:=i+1; until i>n; repeat write('litera data este:');readln(k); until (k>='A') and (k<'Z'); writeln; writeln('literele ce preced in alfabet litera ',k,' sunt:'); writeln; for i:=1 to n do if a[i]>k then write(a[i],' '); readln;readln; end. end.
_______________________________________ House Music Set`s Me Free!
|
|