Напишите программу: подсчитать количество нулей в массиве, состоящем из n целых чисел. элементы массива задавать вручную.
290
363
Ответы на вопрос:
ответ:
1. динамический массив
program p_1;
var n,i,k: integer;
a: array of integer;
begin
write('введите количество элементов массива ');
readln (n);
a : = new integer[n+1];
for i: =1 to n do
begin
write('введите ',i,' элемент массива ');
readln (a[i])
end;
k: =0;
for i: =1 to n do
if a[i] = 0 then k: =k+1;
writeln;
writeln('k = ',k)
end.
2. статический массив
program p_1;
var n,i,k: integer;
a: array [1..1000] of integer;
begin
write('введите количество элементов массива ');
readln (n);
for i: =1 to n do
begin
write('введите ',i,' элемент массива ');
readln (a[i])
end;
k: =0;
for i: =1 to n do
if a[i] = 0 then k: =k+1;
writeln;
writeln('k = ',k)
end.
Популярно: Информатика
-
Domikiahela11.10.2022 06:12
-
ktoyatokoyinter03.09.2020 05:25
-
Vыдыhaй123506.06.2022 10:19
-
wwwzelenruowzl2z30.12.2022 21:06
-
Diankao4ka19.01.2020 23:35
-
ОдУвАнЧиК0711.03.2020 07:57
-
Snezhok140706.12.2022 12:29
-
destroyer080018.01.2020 11:38
-
ZolotoNaMoeyShee27.04.2020 01:01
-
bulatik31117.04.2022 11:01