Решить: пушка наклонена на 45 градусов. угол подъёма не меняется. стрельба ведётся ядрами, одинакового размера, но сделанными из разных материалов. информация ядер: дуб 6 кг 1 кг питан 39 кг чугун 66 кг надо определить дальность полёта.

500 метров дальность стрельбы

Var n,i,k: integer;       a: array [1..50] of real; begin       write('введите целое n = '); readln(n);       for i: =1 to n do       begin           write('a[',i,'] = '); readln(a[i])       end;       k: =0;       for i: =1 to n do             if a[i]< > 0 then k: =k+1;       writeln('k = ',k) end.

Var       a: array[1..4] of integer;       i, max: integer; begin       for i : = 1 to 4 do               readln(a[i]);             max : = a[1];       for i : = 1 to 4 do               if (a[i] mod 2 = 0) and (a[i] > = max) then                       max : = a[i];             if max mod 2 = 0 then               writeln(max)       else               writeln('not found'); end.