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

Найти наименьший положительный элемент массива В или доказать, что его не существует

Детализация псевдокода Вывести результаты ALENA5 дает следующее:

Вывести наибольший отрицательный элемент массива T12

Вывести наименьший положительный элемент массива T12

5. Выполняем структурное программирование с использованием стандартных приемов:

BEGIN

CLRSCR; {ochicshaem ekran}

Writeln('Vvedite 12 elementov vectora T12: ');

for i:=1 to 12 do {organizovivaem cikl po kolichestvu elementov}

begin

Write ( ' T12 [ ' , i , ' ] = ') ; {Udobno videt' nomera elementov}

Readln (T12[i])

end;

Writeln; {Ustanavlivaem kursor na novuju stroku}

{perenosim otric. elementi iz T12 v A }

KolOtric:=0;

for i:=1 to 12 do

If T12[i]<0 then

begin

KolOtric := kolOtric + 1;

A[KolOtric] := T12[i];{zanosim po etomu nomeru}

end;

{perenosim polozhitelnie elementi iz T12 v B}

KolPolozh :=0;

fOR I:=1 TO 12 DO

If T12[i]>0 then

begin

KolPolozh := KolPolozh + 1;

B[KolPolozh] := T12[i];{zanosim po etomu nomeru}