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

olyaokeio olyaokeio    1   27.05.2019 18:30    3

Ответы
GenaTurboKrytt GenaTurboKrytt  24.06.2020 20:47
 Program Z_n;
var a:array[1..10000] of integer;
N,c,i:integer;
Begin
Readln(N);
For i:=1 to N do begin
Readln(a[i]); // вводите числа через enter
if a[i]=0 then c:=c+1;
end;
Writeln('Среди введеных чисел' ,c,' нулей');
end.
Вводится число n, а затем n чисел. подсчитайте, сколько среди данных n чисел нулей.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика