В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
про100Banan
про100Banan
03.08.2021 23:24 •  Информатика

1
шарики
петя вспомнил окоробке с цветными шариками и стал придумывать игру. все шарики
выставил в линию. и стал рассматривать шарики слева направо. когда обнаруживал непрерывную
цепочку из трех и более шариков одного цвета, то удалял эти шарики из линии. все оставшиеся
шарики после удаления сдвигал друг к другу, и повторял описанную операцио до тех пор, пока
было возможно. игра занимала много времени, и он решил написать компьютерную программу.
напишите и вы программу, которая определяет, сколько шариков будет удалено и какие
шарики останутся.
формат входного файла
в первой строке вводится количество шариков в цепочке (не более 1000). -
во второй строке цвета шариков (от 0 до 9, камедому цвету соответствует свое целое число).
формат выходного файла
в первой строке требуется вывести количество шариков, которое будет удалено.
во второй строке цвета оставшихся шариков или ничего, если все шарики были удалены.
пример:
input.txt
output.txt
18
16
5 5 5 5 5 4 4 4 4 8 8
88
2 отношение​

Показать ответ
Ответ:
saaaasss01
saaaasss01
23.09.2020 04:31

Ақпарат – ұғымы күнделікті өмірден бастап техникалық салада пайдаланылатын көп мағыналы ұғым. Жалпы алғанда бұл ұғым шектеу, байланыс, бақылау, форма, инструкция, білiм, мағына, құрылым, бейнелеу, сезіну тағы басқа ұғымдармен тығыз байланысты. Көп адам бұл жайлы Білім дәуірі немесе білім қоғамы тудырған Ақпарат дәуірі туралы айта бастады; ақпараттық қоғам, ақпараттық технологиялар, тіпті информатика, ақпарат ғылымы және компьютер ғылымы назарға көп түсуде, ал “ақпарат” сөзі білдіре бастаған мағыналары ұқыпсыз пайдаланылуда.

0,0(0 оценок)
Ответ:
AnnWer
AnnWer
26.12.2022 08:55

program z1;

const n=8;

var a:array [1..n] of integer;

i,m: integer;

begin

writeln ('Результаты заплыва: ');

for i:= 1 to n do

begin

write(i,'-й: ');

readln(a[i])

end;

writeln;

m:=a[i];

for i:= 1 to n do

if a[i]<m then m:=a[i];

writeln('Лучший: ',m)

end.

program z2;

const n=12;

var a:array [1..n] of integer;

i,m: integer;

begin

writeln ('Массив: ');

for i:= 1 to n do

begin

write(i,'-й элемент: ');

readln(a[i])

end;

writeln;

m:=a[i];

for i:= 1 to n do

if a[i]>m then m:=a[i];

writeln('Максимальный: ',m)

end.

Объяснение:

Сначала вводим элементы массива.

Затем предполагаем, что первый элемент наименьший (1 задача) или наибольший (2 задача). Потом сравниваем элементы массива с переменной, в которую записали первый элемент, и меняем переменную, если условие срабатывает. Выводим результат на экран.

0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота