Дан ве­ще­ствен­ный мас­сив из 40 эле­мен­тов. Эле­мен­ты мас­си­ва могут при­ни­мать...

Question

Дан ве­ще­ствен­ный мас­сив из 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.

Answer 1

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]if min=0 then writeln('таких нет') else writeln('min=',min);  
end.