Question

Напишите программу: Подсчитать количество нулей в массиве, состоящем из n целых чисел. Элементы массива задавать вручную.

Answer 1

Ответ:

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.