Предмет: Информатика, автор: Rasskazchikov

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

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

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

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

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

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

alexbloger: вот к примеру:
Вариант 1
<iostream.h>
void 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 используется как буфер ввода для десяти данных. Вот и все. Хотите развлекаться играми с массивами - развлекайтесь. И закончим.

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

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

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

Ответы

Автор ответа: Merzik

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.

Приложения:

Автор ответа: Аноним

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

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

Приложения: