Дан ве­ще­ствен­ный мас­сив из 40 эле­мен­тов. Эле­мен­ты мас­си­ва могут при­ни­мать про­из­воль­ные зна­че­ния. Опи­ши­те на рус­ском языке или на одном из язы­ков про­грам­ми­ро­ва­ния ал­го­ритм, ко­то­рый на­хо­дит и вы­во...

Дан ве­ще­ствен­ный мас­сив из 40 эле­мен­тов. Эле­мен­ты мас­си­ва могут при­ни­мать про­из­воль­ные зна­че­ния. Опи­ши­те на рус­ском языке или на одном из язы­ков про­грам­ми­ро­ва­ния ал­го­ритм, ко­то­рый на­хо­дит и вы­во­дит ми­ни­маль­ный по­ло­жи­тель­ный эле­мент мас­си­ва или со­об­ще­ние, что та­ко­го эле­мен­та нет. Ис­ход­ные дан­ные объ­яв­ле­ны так, как по­ка­за­но ниже. За­пре­ща­ет­ся ис­поль­зо­вать пе­ре­мен­ные, не опи­сан­ные ниже, но раз­ре­ша­ет­ся не ис­поль­зо­вать часть из них. const N = 40; var a: array [1..N] of real; i, j: integer; min: real; begin for i := 1 to N do readln(a[i]); ... end.
Гость
Ответ(ы) на вопрос:
Гость
const   N = 40; var   a: array [1..N] of real;   i, j: integer;   min: real; begin for i := 1 to N do   readln(a[i]); for i:=1 to N do   if (a[i]>0) then     begin     j:=i;     min:=a[i];//запоминаем последний положительный и его номер     end; for i:=j downto 1 do   if (a[i]>0) and (a[i]