ЗАДАЧА В ПАСКАЛЕ дана непустая последовательность целых чисел оканчивающаяся нулем.найти: а) наибольшее число б) разность максимального и минимального в) максимальный элемент из стоящих на четных местах г) сумму положительных и...
ЗАДАЧА В ПАСКАЛЕ дана непустая последовательность целых чисел оканчивающаяся нулем.найти: а) наибольшее число б) разность максимального и минимального в) максимальный элемент из стоящих на четных местах г) сумму положительных и среднее арифметическое отрицательных д) второй максимум е) длину наибольшего фрагмента, состоящего из одинаковых элементов. ЗАРАНЕЕ ОГРОМНОЕ СПАСИБО ЗА РЕШЕНИЕ ХОТЯ БЫ ОДНОЙ ИЗ ЗАДАЧЕК...))))))
Гость
Ответ(ы) на вопрос:
Гостьa) program name;
var a,b,c:integer;
begin
c:=0;
readln(a,b);
If (a>b+c) then writeln('Наибольшее число: ' , a)
else if (a
Не нашли ответ?
Похожие вопросы