Ответы
Ответ дал:
0
const ar:array[1..6] of integer = (1,0,4,-6,0,1);
var i,n:byte;
begin
writeln('начальный массив');
for i:=1 to 6 do
write(ar[i],' ');
n:=0;//количество найденных
for i:=1 to 6 do
if ar[i]=0 then
n:=n+1;
writeln();
writeln();
writeln('Найдено ', n, ' элементов равных 0');
end.
var i,n:byte;
begin
writeln('начальный массив');
for i:=1 to 6 do
write(ar[i],' ');
n:=0;//количество найденных
for i:=1 to 6 do
if ar[i]=0 then
n:=n+1;
writeln();
writeln();
writeln('Найдено ', n, ' элементов равных 0');
end.
Приложения:
![](https://st.uroker.com/files/866/8662bb696c5c2b85eb2c3f947377b81e.png)
Ответ дал:
0
Спасибо
Ответ дал:
0
Кстати, откуда вы взяли данные числа? ((1,0,4,-6,0,1);
Ответ дал:
0
Ниоткуда. Это просто случайные числа для проверки программы
Ответ дал:
0
можно заполнять RANDOM можно с клавиатуры, но это долго
Вас заинтересует
1 год назад
2 года назад
8 лет назад