Каждый день в полдень с земли на марс отправляется космический корабль, и в то же самое время корабль отправляется с марса на землю . перелёт в том и другом направлении совершается ровно за семь дней .сколько кораблей, идущих в противоположном направлении, встречает корабль по пути с земли на марс?

var

a,m,n,k: real;

begin

readln(m,n,k);

if (m+n+k)< (m*n*k) then 

a: =m+n+k

else

a: =m*n*k;

writeln(a);

end.

если массив состоит из 10 элементов то код программы:

const

  n=10;  

var

  a: array[1..n] of integer;

  i,min: integer;  

begin

for i: =1 to n do  read(a[i]);     {вводишь заданный массив}

min: =32767;

for i: =1 to n do

  if a[i]< min then min: =a[i];

write(min);

end;