Предмет: Информатика,
автор: Viiiiiiiika77777
ЗАДАЧА В ПАСКАЛЕ
дана непустая последовательность целых чисел оканчивающаяся нулем.найти:
а) наибольшее число
б) разность максимального и минимального
в) максимальный элемент из стоящих на четных местах
г) сумму положительных и среднее арифметическое отрицательных
д) второй максимум
е) длину наибольшего фрагмента, состоящего из одинаковых элементов.
ЗАРАНЕЕ ОГРОМНОЕ СПАСИБО ЗА РЕШЕНИЕ ХОТЯ БЫ ОДНОЙ ИЗ ЗАДАЧЕК...))))))
Ответы
Автор ответа:
0
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.
Сейчас ещё что-нибудь решу!
Похожие вопросы
Предмет: Английский язык,
автор: Аноним
Предмет: Математика,
автор: alimzanovdias8
Предмет: Биология,
автор: animeshnik2382
Предмет: Математика,
автор: rusu
Предмет: Математика,
автор: dan000