Рассказ "Обломов" написать взгляды обломовцев на жизнь!!! Помогите!!

Рассказ "Обломов" написать взгляды обломовцев на жизнь!!! Помогите!!
- Предмет:
  Литература
- Автор:
  frostystevenson
- 6 лет назад

Ответы 1

Обломовцы смотрели на жизнь достаточно апатично, считая приоритетами жизни еду(покушать досыта) и отдых. Работа была для них повседневной рутиной, которая не приводила ни к чему, кроме усталости. В жизни их не столько пребывала лень, сколько равнодушие к происходящему. Они любили витать в своих мыслях, мечтах и планах на лучшую жизнь.
- Автор:
  kit-katwhfl
- 6 лет назад
- 0
Добавить свой ответ

Еще вопросы

Сколько процентов составляет: доля одна четвёртая, доля одна десятая, дробь пять восьмых?
- Предмет:
  Математика
- Автор:
  kaelyn
- 6 лет назад
- Ответов:
  
  5
- Смотреть
Сад имеет форму прямоугольника со сторонами 500 м и 400 м.Выразите его площадь в квадратных метрах;в арах; в гектарах.
- Предмет:
  Математика
- Автор:
  adelaide41
- 6 лет назад
- Ответов:
  
  3
- Смотреть
похвальное слово мягкому знаку
- Предмет:
  Русский язык
- Автор:
  oompa loompay75n
- 6 лет назад
- Ответов:
  
  3
- Смотреть
Задача

У продавца воздушных шариков есть N шаров. Каждый из них имеет некоторый цвет. Однако совсем недавно Три Толстяка издали указ, разрешающий торговать шариками какого-то одного цвета. Чтобы не нарушать закон, но при этом и не потерять прибыль, продавец решил перекрасить некоторые из своих шариков.

Напишите программу для определения минимального количества перекрашиваний.

Входные данные

В первой строке входного файла задано количество шариков N (1 ≤ N ≤ 100000). Вторая строка состоит из N целых чисел, в пределах от 1 до 9, определяющие цвета шариков (1 - синий, 2 - зеленый, 3 - голубой, 4 - красный, 5 - розовый, 6 - желтый, 7 - серый, 8 - черный, 9 - белый).

Выходные данные

В единственную строку выходного файла выведите минимальное количество шариков, которое необходимо перекрасить, чтобы все шарики были одного цвета.

Мой код на паскале. Где ошибка? Помогите пожалуйста.
Program ex2;
var a:array[1..9] of integer;
n,k,i,max,b,h,t:integer;
Begin
writeln('введите количество шариков');
readln(n);
write('введите номер цвета шарика через пробел');
read(k);
case k of
1: writeln('Синий');
2: writeln('Зелёный');
3: writeln('Голубой');
4: writeln('Красный');
5: writeln('Розовый');
6: writeln('Жёлтый');
7: writeln('Серый');
8: writeln('Чёрный');
9: writeln('Белый');
end;
procedure init;
var i,t:integer;
begin
readln(h)
for i:=1 to h do
begin
read(t);
(a[t]):=(a[t]+1);
end;
end;
for i:=1 to max do
a[i]:=0;
init;
max:=a[1];
for i:=2 to 9 do
if a[i]>max then max:=a[i];
b:=n-max;
writeln (b);
end;
end.
- Предмет:
  Информатика
- Автор:
  bernice
- 6 лет назад
- Ответов:
  
  1
- Смотреть

Рассказ "Обломов" написать взгляды обломовцев на жизнь!!! Помогите!!

Ответы 1

Топ пользователей