Вопрос по информатике:
Составьте, пожалуйста, программу в паскале:
подсчитайте количество нулевых элементов в массиве из 7 целых чисел и распечатайте исходный массив в обратном порядке.
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 24.04.2018 13:29
- Информатика
- remove_red_eye 12514
- thumb_up 34
Ответы и объяснения 2
a:array[1..7] of integer;
i,cnt:integer;
begin
For i:= 1 to 7 do
begin
read(a[i]);
if a[i] = 0 then cnt:= cnt + 1;
end;
Writeln('нулевых элементов: ', cnt);
For i:= 7 downto 1 do
Write(a[i], ' ');
end.
Пример:
0 1 2 0 3 4 5
нулевых элементов: 2
5 4 3 0 2 1 0
- 25.04.2018 00:07
- thumb_up 26
//Версия 3.3, сборка 1611
begin
var a:=ArrRandom(7,-10,10).Println();
writeln('кол-во 0: ',a.Where(x->x=0).Count());
a.Reverse().Println();
end.
- 26.04.2018 00:22
- thumb_up 39
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.