Var b,c:integer;
a: array [1..20] of integer; {объявляем массив}
begin
randomize; {говорим что будем использовать в теле программы рандомные числа}
for b:=1 to 15 do begin {жи есть цикл программы который заполняет наш массив от первой ячейки (b) до 15 ячейки }
a[b]:=random(1000); {присваиваем элементам массива рандомные значения}
write(a[b]); {выводим эти значения}
writeln(' <== ',a[b]*2); {рядом выводим точно такой же массив с такими же числами, только умноженными на 2 , а стрелочка для красоты }
end;
<span>end.
надеюсь что так можно? ;D
</span>
<u>PascalABC.NET 3.3.5, сборка 1660 от 20.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var x:=ReadReal;
var y:real;
if x<5 then y:=1/(x-5)
else
if x=5 then y:=45
else y:=x**3-20;
Writeln(y)
end.
<u>Пример</u>
12.543
1953.350667007
Программа на c++:
#include <iostream>
#include <cmath>
using namespace std;
int main()
{
float a, b, x, y;
cout << "Input a,b,x: ";
cin >> a >> b >> x;
y = pow(cos(pow(x, 3)), 2) - abs(x) / sqrt(a * a + b * b);
cout << "You Input:\na=" << a << "\nb=" << b << "\nx=" << x << "\nResult:\ny=" << y;
return 0;
}
После ввода соответствующих значений программа выведет:
Input a,b,x: 1.5 15.5 -2.9
You Input:
a=1.5
b=15.5
x=-2.9
Result:
y=0.355384
Отсюда значение y: 0.355384
Ответ: y=0,355384
