azimova0113
16.05.2022 11:21

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

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
Plushtrap
10.06.2020 15:06

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.

 

Сейчас ещё что-нибудь решу!

 

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