Впаскале дана непустая последовательность целых чисел оканчивающаяся нулем.найти: а) наибольшее число б) разность максимального и минимального в) максимальный элемент из стоящих на четных местах г) сумму положительных и среднее арифметическое отрицательных д) второй максимум е) длину наибольшего фрагмента, состоящего из одинаковых элементов. заранее огромное за решение хотя бы одной из
systemka470
1
17.05.2019 09:50
2
Другие вопросы по теме Информатика
хХхмхХх
05.06.2020 17:01
elenabuda85
05.06.2020 16:57
duy53519
06.06.2020 16:54
Mimi1602
05.06.2020 16:50
olmilevskaya1
06.06.2020 16:48
Apple6pen
20.05.2021 08:21
506010
20.05.2021 08:22
ksyhaua0406ozoo6s
22.05.2020 13:24
Популярные вопросы
- Скриншот прикреплен, пожелуста помагите...
1 - Трапеция АВСД описанная около окружности с центром в точке О, касается...
3 - Протон, що рухався зі швидкістю V,3500км/с, зіткнувся з нерухомим ядром...
1 - АЙ НИД ХЕЛП. Только если вы мастер своего ремесла коллега. Выполните...
1 - Для відновлення заліза з ферум (|||) оксиду масою 32 кг витратили водень,...
3 - 1.Кто автор программной увертюры? а) Моцарт б) Глюк в) Бетховен 2.В каком...
2 - Отзыв на рассказ Алексеева ,, Папка’’...
2 - Как вы думайте почему у рыб по сравнению с земноводным мозжечок очень...
3 - 1) Наведіть факти, що свідчать про залучення галицького селянства до...
3 - Определи в какой части книге говорится в утверждении это небольшие заметки...
1
a)
program name;
var a,b,c:integer;
begin
c:=0;
readln(a,b);
If (a>b+c) then writeln('Наибольшее число: ' , a)
else if (a<b+c) then writeln('Наибольшее число: ' , b)
else write();
readln(); // взависимости от компилятора.
end.
Сейчас ещё что-нибудь решу!