«аочное дистанционное образование с получением государственного диплома через Internet










ѕолучить информацию о поступлении
 
√лавна€ Ќовости  арта сайта ‘отоальбом √остева€ книга  онтакты

 

”пражнение 1 (ќдномерные массивы)

ƒан массив чисел. Ќайти значение максимального элемента. ≈сли таких элементов несколько, то определить, сколько их.

Ёта задача может быть решена за один просмотр элементов массива. ¬начале устанавливаем текущий максимум по первому элементу массива ћј’ := MAS[1] и запоминаем количество максимумов   := 1. «атем выбираем очередной элемент MAS[I] массива и сравниваем его с ћј’. ¬ случае равенства увеличиваем значение   на единицу. ≈сли текущий максимум меньше элемента MAS[I], то переприсваиваем его ћј’ := MAS[I] и устанавливаем значение   в единицу. ѕосле окончани€ просмотра выводим результаты на экран. ¬ данном случае считывание элементов массива разумно совместить с процессом обработки, но считывание можно осуществить и двум€ последовательными циклами:

PROGRAM PRG4_1;

CONST ћ = 100;

VAR MAS : ARRAY[1..M] OF INTEGER;

I, MAX, K, N : INTEGER;

BEGIN

WRITE('BBEƒ»TE –ј«ћ≈– ћј——»¬ј N = ');

READLN(N);

WRITE('BBEƒ»TE ЁЋ≈ћ≈Ќ“ ћј——»¬ј ');

READLN(MAS[1]);

MAX := MAS[1];

K:=1;

FOR I := 2 TO N DO

BEGIN

WRITE('BBEƒ»TE ЁЋ≈ћ≈Ќ“ ћј——»¬ј ');

READLN(MAS[I]);

IF MAX<MAS[I] THEN

BEGIN

MAX := MAS[I];

K:= 1

END

ELSE

IF MAX = MAS[I] THEN   := K+1;

END;

WRITELN('MAX =', MAX, 'Ё“»’ ЁЋ≈ћ≈Ќ“ќ¬',  )

END.

ƒл€ решени€ задачи:

- формируем тело программы и описываем переменные;

- вводим длину массива N, значение элементов массива и устанавливаем начальное значение ћј’ по первому числу;

- последовательно просматриваем элементы, и если очередной MAS[I] больше ћј’, то переприсваиваем значение ћј’:= MAS[I] и  := 1;

- если MAS[I] = ћј’, то увеличиваем значение   на единицу;

- выводим результат.

ѕеременные:

MAS - массив чисел;

N - размер массива;

I - переменна€ цикла;

ћј’ - значение наибольшего элемента;

  - количество наибольших элементов.


”знать как сэкономить в кризис моно на сайте ekonom-it.ru

”пражнение 1 (—имвольные переменные и строки) ”пражнение 2 (—имвольные переменные и строки) ”пражнение 3 (—имвольные переменные и строки) ”пражнение 4 (—имвольные переменные и строки) «адачи на тему "ќдномерные массивы" ”пражнение 2 (ќдномерные массивы) ”пражнение 3 (ќдномерные массивы) «адачи на тему "ƒвумерные массивы" ”пражнение 1 (ƒвумерные массивы) ”пражнение 2 (ƒвумерные массивы) 


 
     
   
 


ѕриглашаем прин€ть участие в круглом столе!
подробнее   >>>
 

»нститут ћенеджмента, Ёкономики и »нноваций начинает набор на курсы повышени€ квалификации!
подробнее   >>>
 

”важемые студенты јЌќ ¬ѕќ »ћЁи»!
подробнее   >>>
 

Ќачинаетс€ набор на курсы повышени€ квалификации!
подробнее   >>>
 

ѕриглашаем прин€ть участие в конференци€х!
подробнее   >>>
 


все новости...

 


–ассылки Subscribe.Ru
—овременное образование
ѕодписатьс€ письмом