Пушка стреляет с закрытой позиции. целью является мишень расположенная на расстоянии s от пушки и высотой h. начальная скорость полета снаряда известна и постоянна.необходимо определить угол наклона пушки, для поражения цепи. выполнить первых два этапа:
вывод описательной модели , формулировка
===== PascalABC.NET =====
1)
begin
var a := ArrRandom(10, -80, 79);
a.Println;
var (j, k) := (-1, 0);
for var i := 0 to a.High do
if a[i].IsEven then
begin
k += 1;
if k = 5 then
begin
j := i;
break
end
end;
if j = -1 then
Println('Нет достаточного числа четных элементов')
else
begin
a[j] := Sqr(a[j]);
a.Println
end
end.
2)
begin
var a := ArrRandom(10, -80, 79);
a.Println;
var imax := a.IndexMax;
a[imax] -= 100;
Swap(a[imax], a[a.High]);
a.Println
end.
#include <iostream>
#include <fstream>
#include <cmath>
using namespace std;
int main()
{
int a[5][5] = { 0 }, i, j, s, b[5] = { 0 };
double p;
ifstream f("input.txt");
if (!f.is_open())
cout << "error";
else
{
for (i = 0; i < 5; i++)
for (j = 0; j < 5; j++)
f >> a[i][j];
}
f.close();
s = 0;
for (i = 0; i < 5; i++)
if(a[i][i]<0)
s += a[i][i];
cout << "sum=" <<s<<endl;
p = 1;
for (int j = 0; j < 5; j++)
p *= 2*sin(abs(a[3][j]))+0.3*j;
cout << "P=" << p << endl;
s = 0;
for (j = 0; j < 5; j++)
{
for (i = 0; i < 5; i++)
if(a[i][j]>0)
s += a[i][j];
b[j] = s;
s = 0;
}
cout << "massiv b: ";
for (i = 0; i < 5; i++)
cout << b[i] << " ";
return 0;
}