сервис вопросов и ответовВводится число N, а затем N чисел. Подсчитайте, сколько среди данных N чисел нулей.
5-9 класс|
|
Ivanov19762506
14 февр. 2016 г., 1:52:53 (8 лет назад)
Nastyusha74
14 февр. 2016 г., 3:43:14 (8 лет назад)
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.
Ответить
Другие вопросы из категории
var day,m,i: integer; temp:array[1..7] of integer; begin temp[1]:=22; temp[2]:=26; temp[3]:=27; temp[4]:=23; temp[5]:=29;
temp[6]:=28; temp[7]:=28;
day:=1;
m:=temp[1];
for i:=1 to 7 do
if temp[i]>m then begin
m:=temp[i];
day:=i; end;
write(day);
end.
Читайте также
Помогите очень срочно! 315. По данному натуральному n вычислите сумму 1^2 + 2^2+...+n^2. Вводится единственное число n. Необходимо вывести вычисленную
сумму. 346.Подсчитайте, сколько среди данных N чисел нулей, положительных чисел, отрицательных чисел. Вводится число N, а затем N чисел. Необходимо вывести сначала число нулей, затем число положительных и отрицательных чисел. 347.Вводится число N, а затем N чисел. Выведите YES, если среди введенных чисел есть хотя бы один нуль, или NO в противном случае.
Вводится число 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.
С клавиатуры вводятся 3 числа, подсчитать сколько среди них четных положительных чисел.
PS: использовать функцию деления по модулю:
a mod b- выдает остаток при делении числа а на число b
15 mod 2=1
15 mod 3=0
Вы находитесь на странице вопроса "Вводится число N, а затем N чисел. Подсчитайте, сколько среди данных N чисел нулей.", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.