Дан массив из 15 элементов строкового типа данных, который заполняется ручным способом буквами М и Ж, программа определяет количество Ж и М.

Question

Информатика

Африкан

6 апреля, 04:30

Дан массив из 15 элементов строкового типа данных, который заполняется ручным способом буквами М и Ж, программа определяет количество Ж и М.

+2

Ответы (1)

Знаете ответ на вопрос?

Иоланта · Answer 1

Const n=15;

var a:array[1 ... n] of integer;

i, k, c: integer;

begin

k:=0;

c:=0;

writeln ('Буква М - 1, буква Ж - 2.') ;

for i:=1 to n do

begin

readln (a[i]) ;

if a[i]=1 then k:=k+1 else c:=c+1;

end;

writeln (k,' - М, ', c,' - Ж.') ;

end.