Напишите программу:
Подсчитать количество нулей в массиве, состоящем из n целых чисел. Элементы массива задавать вручную.
9 класс, помогите пожалуйста :)
Ответы
Ответ дал:
0
===== PascalABC.NET =====
begin
var n := ReadInteger('Задайте n:');
var a := ReadArrInteger('Вводите массив:', n);
Println('Количество нулевых элементов равно',
a.Count(p -> p = 0))
end.
Приложения:
Зачем программу из трех строчек писать в 15 строк?
нас так учат, да и в учебнике все программы большие
я могу написать три строчки, но учитель не поверит что это написала я
Всех учат по-разному, Вам просто не повезло. То, что Вы написали - это код на ТурбоПаскаль, уровень 1983 года. А сейчас 2019-й заканчивается. В следующий раз просите код для Turbo Pascal.
Что до учебников - они не по программированию, а по информатике. Сейчас даже в требованиях ЕГЭ сказано, что программу можно писать на абсолютно любом языке и в любой версии, только надо указать, на каком именно. А учебники - ну их написали 100 лет назад и ежегодно переиздают. Сытая и беспроблемная кормушка для авторов.
Посему каждый класс (а не то, чтобы вся школа) учат то, что знает из учитель информатики. А учителя говорят, что у них маленькая зарплата и за такие деньги они не будут переучиваться на новые программные средства.
*их учитель информатики
согласна на самом деле...
Просто повторите свой вопрос с явным указанием диалекта паскаля.
Вас заинтересует
1 год назад
1 год назад
3 года назад
8 лет назад
const
n=10;
var
i, k: integer;
a: array [1..n] of integer;
begin
for i:=1 to n do read (a[i]);
begin
k := 0;
for i:=1 to n do
if a[i]=0 then k:=k+1
end;
writeln ('количество нулей', k)
end
нужно сделать что-то наподобие этого. это все, что я смогла, но в итоге число n не должно быть задано