ЗАДАЧА В ПАСКАЛЕ дана непустая последовательность целых чисел оканчивающаяся...

0 голосов
90 просмотров

ЗАДАЧА В ПАСКАЛЕ

дана непустая последовательность целых чисел оканчивающаяся нулем.найти:

а) наибольшее число

б) разность максимального и минимального

в) максимальный элемент из стоящих на четных местах

г) сумму положительных и среднее арифметическое отрицательных

д) второй максимум

е) длину наибольшего фрагмента, состоящего из одинаковых элементов.

ЗАРАНЕЕ ОГРОМНОЕ СПАСИБО ЗА РЕШЕНИЕ ХОТЯ БЫ ОДНОЙ ИЗ ЗАДАЧЕК...))))))


Информатика (85 баллов) | 90 просмотров
Дан 1 ответ
0 голосов

a)

program name;
var a,b,c:integer;
begin
c:=0;
readln(a,b);
If (a>b+c) then writeln('Наибольшее число: ' , a)
else if (aelse write();

readln();  // взависимости от компилятора.
end.

 

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

 

(138 баллов)