Составить блок схему и написать программу Задача: Ввести 10 значений в переменную Z ....

Question

Составить блок схему и написать программу
Задача: Ввести 10 значений в переменную Z . Найти и выдать на экран количество введеных нулей
.

Comments

А им не нужен ни массив, ни матрица, ни вектор. Нужна простая переменная для оператора Read(Z)

---

Переменная "array" создает одномерный массив, не? или конкретно в паскале как-то по другому называется переменная, которая включает 10 значений ? :D

---

array - это не переменная, а описатель массива в языке Паскаль. Где Вы в задании увидели это слово?

---

Кроме этого, array ничего не создает, по следующему за ним описанию компилятор резервирует необходимую область памяти, но и только. Учите матчасть!

---

У вас в коде. Какая игра слов, а вы прям не поняли о чем я, с отсылкой на матчасть :) Пропустил слово "переменная тип "array". Результат от этого не поменялся - создается одномерный массив. В языке Паскаль тип массива задается с использованием специального слова array. И последующий доступ к элементам по индексам осуществляется. При чем здесь резервирование области и прочее? z:array[10] of integer = переменная z, тип массив, 10 размерность, integer - тип данных. О чем вообще разговор наш?)

---

вот к примеру:Вариант 1void main(void){int z,k=0;for (int i = 0; i < 10; i++ ){ cout<<"press enter Z: "<<endl;cin>>z;if(z==0){k++;} }cout<<"Количество нулей: "<<k; }getch();}Вариант 2<iostream.h>void main(void){int z[10];int k=0;for (int i = 0; i < 10; i++ ){ cout<<"press enter Z: "<<endl;cin>>z[i];if(z==0){k++;} }cout<<"Количество нулей: "<<k; }getch();}

---

Я не знаю, это Вы его начали. Я говорю о том, что никаких массивов исходное задание не требует, автор, скорее всего, хотел сказать, что переменная z используется как буфер ввода для десяти данных. Вот и все. Хотите развлекаться играми с массивами - развлекайтесь. И закончим.

---

Да к вам никаких претензий, вопрос стоял изначально к автору. Зачем нам что-то думать, додумывать задание, придумывать продолжение и прочее при решение задач? Можно же изначально проявить уважение к нам, и написать условие корректно. В правилах сайта написано о размещении - задание четко написано, все данные, полное условие и чтобы не было двоякого понимания. Это же не сложно, а то ходишь только по вопросам и ставишь галочки "отметить нарушение". Один забыл дописать, другой забыл цифры..

---

Да, можно было удалить вопрос, как неточный. Но мне был понятен смысл задания, а решать его через массив или переменную - разницы нет.

---

У автора стоит класс 5-9. Был бы 10-11, скорее всего бы удалили.

Answer 1

Var
  i,k,z:integer;
begin
  k:=0;
  Write('Введите 10 целых чисел: ');
  for i:=1 to 10 do
  begin Read(z); if z=0 then Inc(k) end;
  Writeln('Количество введенных нулей равно ',k)
end.
 
Тестовое решение:
Введите 10 целых чисел: 6 -5 0 4 -8 0 3 1 -2 0
Количество введенных нулей равно 3

Блок схема во вложении.

Answer 2

Var i,k:integer;
z:array[10] of integer;
for i:=0 to 10 do
read(z[i]);
k:=0;
for i:=0 to 10 do
if z[i]=0 then inc(k);
writeln('Нулей:', k);
end.

---