В символьном массивеиз 6 элементов, заданных с клавиатуры:

а) поменять все маленькие латинские буквы на большие,

б) найти кол-во запятых,

в) поменять все маленькие русские буквы на большие.

СРОЧНО!!! жду верного решения спасибо заранее

Ответы:

var l,k:char, m,s:string, n,i,a:integer, begin read(s), l:=s[1], if ((ord(l)&gt,223) and (ord(l)&lt,256))or((ord(l)&gt,96) and (ord(l)&lt,122)) then begin a:=ord(l)-32,if a&lt,&gt,0 then begin k:=chr(a),if k&lt,&gt,0 then m:=m+copy(k,1,1) end, end  else begin if  ord(l)=44 then n:=n+1, m:=m+l, end, l:=s[2], if ((ord(l)&gt,223) and (ord(l)&lt,256))or((ord(l)&gt,96) and (ord(l)&lt,122)) then begin a:=ord(l)-32,if a&lt,&gt,0 then begin k:=chr(a),if k&lt,&gt,0 then m:=m+copy(k,1,1) end, end  else begin if  ord(l)=44 then n:=n+1, m:=m+l, end, l:=s[3], if ((ord(l)&gt,223) and (ord(l)&lt,256))or((ord(l)&gt,96) and (ord(l)&lt,122)) then begin a:=ord(l)-32,if a&lt,&gt,0 then begin k:=chr(a),if k&lt,&gt,0 then m:=m+copy(k,1,1) end, end  else begin if  ord(l)=44 then n:=n+1, m:=m+l, end, l:=s[4], if ((ord(l)&gt,223) and (ord(l)&lt,256))or((ord(l)&gt,96) and (ord(l)&lt,122)) then begin a:=ord(l)-32,if a&lt,&gt,0 then begin k:=chr(a),if k&lt,&gt,0 then m:=m+copy(k,1,1) end, end  else begin if  ord(l)=44 then n:=n+1, m:=m+l, end, l:=s[5], if ((ord(l)&gt,223) and (ord(l)&lt,256))or((ord(l)&gt,96) and (ord(l)&lt,122)) then begin a:=ord(l)-32,if a&lt,&gt,0 then begin k:=chr(a),if k&lt,&gt,0 then m:=m+copy(k,1,1) end, end  else begin if  ord(l)=44 then n:=n+1, m:=m+l, end, l:=s[6], if ((ord(l)&gt,223) and (ord(l)&lt,256))or((ord(l)&gt,96) and (ord(l)&lt,122)) then begin a:=ord(l)-32,if a&lt,&gt,0 then begin k:=chr(a),if k&lt,&gt,0 then m:=m+copy(k,1,1) end, end  else begin if  ord(l)=44 then n:=n+1, m:=m+l, end, writeln(m), writeln(n), end.