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

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.

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

Юрий Кирильцев 2019-09-04 01:33:35

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

Ева Дупелева 2019-09-04 01:39:51

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

Наташка Крестьянникова 2019-09-04 01:48:09

поправил

Толя 2019-09-04 01:55:41

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

Vitek Jurchenja 2019-09-04 02:04:07

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

Виктория Махинич 2019-09-04 02:06:28

на данный момент сделаю

Любовь Бичеева 2019-09-04 02:15:13

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

Тамара 2019-09-04 02:17:40

да

Зимаров Диман 2019-09-04 02:27:02

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 dowrite(a[i])end.

Вадим Бармут 2019-09-04 02:31:53

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

О проекте

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

Добро пожаловать!