Question

в символьном массиве из 6 элементов введённых с клавиатуры найти количество запятых

Answer 1

var 
a: array [1..6] of char; 
i,n: integer; 
begin 
n:=0;
for i:= 1 to 6 do 
 begin   
read(a[i] );   
if a[i] = ',' then
n:= n +1; 
end; 
writeln(n);
end.

не понимаю для чего тут массив, но сделал как в задании

Answer 2

сейчас сделаю

Answer 3

так же массив 6 элементов?

Answer 4

да

Answer 5

var
a: array [1..6] of char;
i: integer;
begin
for i:= 1 to 6 do
begin
read(a[i] );
if a[i] in ['а'..'я']
then
a[i]:=chr(ord(a[i]) - 32)
end;
for i:=1 to 6 do
write(a[i])
end.

Answer 6

Спасибо огромное ,очень помогли