Program Nooobodyyy; uses crt; var i,how:integer; ch,appr,sum:real; begin writeln('*** Alphaeus is thinking... ***'); writeln('*** OK ***'); writeln(); writeln(); writeln('Программа запрашивает N дробных чисел и находит их среднее арифметическое'); sum:=0; write('Введите количество чисел: '); readln(how); for i:=1 to how do begin write('Введите ',i,'-e число: '); read(ch); sum:=sum+ch; end; appr:=sum/how; writeln('Cреднее арифметическое равно ',appr:8:2); end.
Program rabota_s_massivom; uses crt; label metka; const N=30; var M: array[1..N] of integer; i,k,s,kmax,reserve:integer; begin for i:=1 to N do begin write('Введите ',i,'-й элемент: '); readln(M[i]); end; writeln('Массив:'); for i:=1 to N do begin write(M[i],' '); end; k:=1; {Число элементов в текущей последовательности. Изначально считаем, что последовательность состоит из одного (первого) элемента} {Ищем первый нечётный элемент:} repeat reserve:=reserve+1; until (m[reserve] mod 2 = 1) or (reserve = 30); writeln(reserve); if (m[reserve] mod 2 = 0) and (reserve = 30) then begin writeln('Все числа чётные. Искомая последовательность не существует'); goto metka; end; s:=M[reserve]; {Сумма элементов текущей последовательности пока что равна первому нечётному элементу} kmax:=0; {Наибольшая длина последовательности} for i:=reserve+1 to n do {Перебираем все элементы, начиная с первого нечётного} begin if (m[i] mod 2 = 1) then {Если текущее число всё ещё нечетно} begin s:=s+m[i]; {Увеличиваем сумму последовательности} k:=k+1 {Увеличиваем счётчик длины последовательности} end else {Если встретилось четное число} begin if k>kmax then {Проверяем, не является ли полученная последовательность длиннее нашего максимума} begin {Если да:} kmax:=k; {Запоминаем новую длину последовательности} reserve:=s {Запоминаем сумму её элементов} end; k:=0; {Устанавливаем длину новой последовательности равной 0} s:=0 {Сумма элементов этой последовательности тоже пока что = 0} end; end; if k>kmax then {Если самая длинная последовательность находится в конце массива, проверим ещё раз текущий максимум} begin kmax:=k; reserve:=s end; writeln('самая длинная последовательность нечётных чисел состоит из ',kmax,' элементов'); writeln('и сумма этой последовательности равна ',reserve); metka: end.
