Алгоритмы и программы. Афанасьева Т. В - 89 стр.

UptoLike

ВУЗ: 

УлГТУ | Ульяновск

Составители: 

Рубрика: 

89
writeln;
writeln;
writeln('для окончания работы нажмите ENTER');
readln;
end.
Пример 4.15. Найти количество минимумов и максимумов
последовательности.
Алгоритм:
1. присваиваем переменным k и n минимальное и максимальное число
соответственно;
2. открываем цикл:
2.1. вводим элемент последовательности а;
2.2. если a> или =(предыдущего максимума k), то
если a=(пред. макс. k), то количество максимумов i увеличивается на 1;
если a>(пред. макс. k), то количество максимумов i=1, а
переменной k
присваиваем значение а (k:=a).
Аналогичные действия проводятся c минимальными элементами.
program orion_posl;
var
a,n,k:real;
r,i,l,j:integer;
begin
i:=0;
j:=0;
k:=–1e–39;
n:=1E+38;
write('введите количество элементов последовательности : ');
read(r);
writeln('введите последовательность');
for l:=1 to r do
begin
readln(a);
if a>=k then
begin
if a=k then i:=i+1;
if a>k then i:=1;
k:=a;
end;
if a<=n then
begin
if a=n then j:=j+1;
if a<n then j:=1;

Страницы