Добрый день. Нужна помощь в паскале.
Необходимо составить программу подсчёта количества нулевых элементов в массиве А(100).
Буду премного благодарен. Спасибо.
Ответы
Ответ дал:
0
const
n=100; { размер массива }
var
a:array[1..n] of integer;
i,k:integer;
begin
{ заполняем массив случайными значениями }
Randomize;
k:=0;
Writeln('Элементы массива');
for i:=1 to n do
begin
a[i]:=Random(41)-20;
Write(a[i],' ');
if a[i]=0 then Inc(k)
end;
Writeln;
Writeln('Нулевых элементов: ',k)
end.
n=100; { размер массива }
var
a:array[1..n] of integer;
i,k:integer;
begin
{ заполняем массив случайными значениями }
Randomize;
k:=0;
Writeln('Элементы массива');
for i:=1 to n do
begin
a[i]:=Random(41)-20;
Write(a[i],' ');
if a[i]=0 then Inc(k)
end;
Writeln;
Writeln('Нулевых элементов: ',k)
end.
Похожие вопросы
2 года назад
2 года назад
7 лет назад
7 лет назад
9 лет назад
10 лет назад