Реферат: Основы программирования и алгоритмические языки

{opredelyaem samuju bol'shuju otric. temperaturu}

if ( KolOtric >= 1 ) then

begin

Max:= A[1]; {Chitaem, chto eto pervij element massiva}

if ( KolOtric > 1 ) then

for i:=2 to KolOtric do {poetomu nachinaem obrabotku so 2-go elementa}

If A[i] > Max then {sravnivaem s tekush. max otric. znach}

Max := A[i]; {zapominaem samoe bol'shoe otric. znach}

Writeln ('samaja bolshuju otric. temperatura Max= ', Max);

end

else

Writeln('Otricatelnyh znacheniy net');

{opredelyaem samuju malen'kuju polozhit. temperaturu}

if ( KolPolozh >= 1 ) then

begin

Min:= B[1]; {Chitaem, chto eto pervij element massiva}

if ( KolPolozh > 1 ) then

for i:=2 to KolPolozh do {poetomu nachinaem obrabotku so 2-go elementa}

If B[i] < Min then {sravnivaem s tekush. min.polozh. znach}

Min := B[i]; {zapominaem samoe maloe polozh. znach}

Writeln ('samaja malaja polozh. temperatura Min= ', Min);

end

else

Writeln('Polozhitelnyh znacheniy net');

{Vividim rezultat}

Readln

End.

6. Отладка программы.