0 / 0 / 0
Регистрация: 03.05.2012
Сообщений: 60
1

Количество пустых клеток для кроликов

28.09.2014, 21:52. Показов 2019. Ответов 3
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Фермер Джон решил разводить кроликов. Он купил N (1<=N<=100) клеток, в каждую поселил A[i] (0<=A[i]<=1000) кроликов. Но фермер уже очень стар и забывчив, поэтому он забыл поселить кроликов в некоторые клетки. Помогите ему найти количество пустых клеток.
Нужно сделать что бы программа работала с файлами input и output.

Формат ввода:
N - кол-во клеток
A[1]
A[2]
A[3]
...
A[N] - кол-во кроликов в каждой клетке.

Формат вывода:
kol - количество пустых клеток.

Пример ввода:
5
1
3
0
5
1

Пример вывода:
1
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
28.09.2014, 21:52
Ответы с готовыми решениями:

Олимпиада по программированию. В выходной потек вывести единственное число - количество пустых клеток в данной комнате
Извените что на укр. ибо срочно. 1)Найти площадь комнаты в квадратном лабиринте. Формат...

Шахматы - Посчитать количество пустых клеток
На доске стоит несколько офицеров и ладей. Требуется посчитать количество свободных клеток, которые...

Найдите максимальную красоту среди красот всех клеток и количество клеток, имеющих такую красоту
Помогите с Олимпиадой задачкой. Проходит не все тесты: Видимость звездочек (упрощенная версия) ...

Задача Фибоначчи. Сколько пар кроликов будут через год, если в начале года имели 1 пару кроликов
путь : File/New/Other/Console Applicatoon в 1202 году италь. математик Фибоначи решил задачу:...

3
Эксперт Pascal/Delphi
2386 / 1298 / 1492
Регистрация: 29.08.2014
Сообщений: 4,661
29.09.2014, 06:31 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
var
  A:array of integer;
  n:integer;
  kol:integer;
begin
  assign(input,'input.txt');
  reset(input);
  assign(output,'output.txt');
  rewrite(output);
  readln(n);
  SetLength(A,n);kol:=0;
  repeat
    dec(n);
    readln(A[n]);
    if A[n]=0 then inc(kol);
  until n=0;  
  writeln(kol);
  close(input);
  close(output);
end.
0
Почетный модератор
64299 / 47594 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
29.09.2014, 07:37 3
В простом АВС нет динамических массивов
1
Эксперт Pascal/Delphi
2386 / 1298 / 1492
Регистрация: 29.08.2014
Сообщений: 4,661
29.09.2014, 07:59 4
Лучший ответ Сообщение было отмечено Katia777 как решение

Решение

без динамических массивов, но с количеством клеток до 100 шт:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
var
  A:array [1..100] of integer;
  n:integer;
  kol:integer;
begin
  assign(input,'input.txt');
  reset(input);
  assign(output,'output.txt');
  rewrite(output);
  readln(n);
  if n<=100 then begin
    kol:=0;
    repeat
      readln(A[n]);
      if A[n]=0 then inc(kol);
      dec(n);
    until n=0;  
    writeln(kol);
  end else writeln('количество клеток больше 100!');
  close(input);
  close(output);
end.
и вообще без массивов:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
var
  A:integer;
  n:integer;
  kol:integer;
begin
  assign(input,'input.txt');
  reset(input);
  assign(output,'output.txt');
  rewrite(output);
  readln(n);
  if n<=100 then begin
    kol:=0;
    repeat
      readln(A);
      if A=0 then inc(kol);
      dec(n);
    until n=0;  
    writeln(kol);
  end else writeln('количество клеток больше 100!');
  close(input);
  close(output);
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
29.09.2014, 07:59
Помогаю со студенческими работами здесь

Количество пустых клеток, которые не бьет ни одна из фигур
На шахматной доске расположены несколько слонов и ладей. По условным буквенным обозначениям фигур и...

Посчитать количество пустых клеток шахматной доски, которые не бьются ни одним ферзем
Описание Ферзь - самая сильная шахматная фигура, которая за один ход может перемещатся на льбое...

Sudoku: рандомная генерация пустых клеток
Делал я всё через StringGrid, мне не понятно, как написать магический куб (он будет ниже) в коде, и...

Сапер, или как открыть несколько пустых смежных клеток
Всем доброго дня\вечера\утра. Озадачился написать игру &quot;Сапер&quot; (аналог того, что есть у...

Открытие пустых клеток в игре "сапёр"
Помогите пожалуйста, никак не получается правильно открыть пустые клетки областями до цифр, как в...

Подсчитать количество пустых строк в текстовом файле. Сформировать новый файл, в котором пустых строк нет
Задано произвольный текстовый файл. Подсчитать количество пустых строк в этом файле. Сформировать...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru