•  

    Вводится число N, а затем N чисел. Подсчитайте, сколько среди данных N чисел нулей. Измените что надо сайт не пропускает.

    var i,n,t,k:Inteer; 
    begin 
    write('n:=');readln(n); 
    for i:=1 to n do begin 
    write(i,'-> ');readln(t); 
    if t=0 then inc(k); 
    end; 
    writeln(k); 
    end. 

Ответы 1

  • Ловите, сам написал, сам проверил, все работает.var input, num, nulls, i: integer;beginwrite('Введите кол-во чисел: ');readln(input);for i := 1 to input do begin  write('Введите число номером ', i, ': ');  readln(num);  if num = 0 then inc(nulls, 1);end;writeln('Кол-во нулей: ', nulls);end.    
  • Добавить свой ответ

Войти через Google

или

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

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

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