• Дан одномерный массив из целых чисел. Сколько элементов, значения которых равных 0 , и сколько элементов равных 2?

Ответы 1

  • program xxx;

    const n=30;

    var   a : array [1..n] of integer;   i, kn, kd : integer;begin

       readln(n);

       kn:=0;

       kd:=0;    for i:=1 to n do     begin

           write('a[',i,']=');

           readln (a[i]);

           if a[i]=0 then kn:=kn+1;

           if a[i]=2 then kd:=kd+1;     end;

       for i:=1 to n do       write(a[i], ' ');

       writeln();   writeln('Количество чисел равных 0 -',kn);

       writeln('Количество чисел равных 2 -',kd);   readln();end.

  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years