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

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.

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

Comments

процесс записи в массив можно сделать проще: for i:=1 to 6 do
readln(a[i]);

---

блин, вот ступил)

---

исправил

---

спасибо огромное ,а мне могли бы помочь ещё задание тоже только вместо кол запятых нужно исправить все русские буквы на большие

---

тут по сложнее

---

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

---

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

---

да

---

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.

---

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