#include <iostream>
using namespace std;
//Ввести двумерный массив A 4×3. Определить в нём произведение тех элементов, чей модуль лежит вне диапазона [1;5]
int main()
{
int masA[4][3],a,b;
cout << "Vvedite a and b: ";
cin >> a >> b;
for (int i=0; i < 4; i++) {
for (int j=0; j < 3; j++)
{
masA[i][j] = rand() % b + a; //рандом
cout << masA[i][j] << " ";
}
cout << "\n";
}
int p = 1;
for (int i = 0; i < 4; i++) {
for (int j = 0; j < 3; j++)
{
if (abs(masA[i][j]) < 1 || (masA[i][j]) > 5)
p = p * masA[i][j];
}
}
cout << "Proizv= " << p;
return 0;
}
Var a,s: real;
begin
write('длина стороны: ');
readln(a);
s:=a*a*sin(pi/3)/2;
writeln('площадь треугольника = ',s:6:4);
end.
<span>
</span>
<h3>PascalABC.NET 3.4.2, сборка 1857 от 05.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
function R(t:real):=t*(50-t*t);
begin
for var t:=1 to 6 do
Writeln(t:1,R(t):5)
end.
Блок-схема расчета площади квадрата
в приложении.