Задана начальная скорость камня 48 м/с, угол бросания 38°. Найти:
1) наибольшую дальность полета (м)
2) наибольшее время полета (с точностью до 0,2 с)
3) наибольшую высота подъёма (м)​

если массив состоит из 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;  

номер 4, так как две собаки в этой части не допущены.

такой адресс получается

var i: integer;

begin

  i: =16;

  repeat

        if i mod 2=0 then writeln(i);

        i: =i+1;

  until i> 24

end.