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










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

 

”пражнение 3 (ќбработка числовых последовательностей)

¬водитс€ последовательность из N целых чисел. Ќайти наибольшее число.
 

PROGRAM PRG2_3;

VAR N, X, MAX, I: INTEGER;

BEGIN

REPEAT

WRITE('¬¬≈ƒ»“≈ ƒЋ»Ќ” ѕќ—Ћ≈ƒќ¬ј“≈Ћ№Ќќ—“» N = ');

READLN (N);

UTIL N>0;

WRITE('¬¬≈ƒ»“≈ X = ');

READLN (X);

MAX := X;

FOR I := 2 TO N DO

BEGIN

WRITE('BBEAMTE X = ');

READLN (X);

IF (X>MAX) THEN

MAX := X;

END;

WRITELN('HA»ЅќЋ№Ў≈≈ »« „»—≈Ћ MAX = ', MAX);

END.

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

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

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

- последовательно считываем числа, и если очередное число X больше ћј’, то переприсваиваем значение ћј’ := X;

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

ѕеременные:

N - количество чисел;

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

X - очередное число;

ћј’ - наибольшее число.


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

”пражнение 7 (ѕроизвод€щие функции и р€ды)  омпьютерный сленг (” и ‘) «адачи на тему "ќбработка числовых последовательностей" ”пражнение 1 (ќбработка числовых последовательностей) ”пражнение 2 (ќбработка числовых последовательностей) ”пражнение 4 (ќбработка числовых последовательностей) «адачи на тему "—имвольные переменные и строки" ”пражнение 1 (—имвольные переменные и строки) ”пражнение 2 (—имвольные переменные и строки) ”пражнение 3 (—имвольные переменные и строки) 


 
     
   
 


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

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

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

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

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


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

 


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