// PascalABC.NET 3.4.2, сборка 1785 от 06.09.2018
// Внимание! Если программа не работает, обновите версию!
begin
Println('Введите последовательность целых чисел через пробел.');
var n := ReadSeqIntegerWhile('Последним введите число нoль. ->', t -> t <> 0).
Pairwise.Where(t -> t[0] * t[1] < 0).Count;
Println($'Последовательность меняет знак {n} раз(а).')
end.
Блок-схема во вложении. Если нужен ввод элементов массива, то непосредственно перед ромбиком с if вставить ввод x[i,j]
#include<cmath>
#include<iostream>
using namespace std;
int main()
{
int N;
double P = 1;
cout << "N = ", cin >> N;
for(int A = 1; A<=N; A++)
P=P*A;
P = (N>0?pow(P,(double)1/N):0);
cout << "P = "<<P<<"\n";
system("Pause");
return 0;
}
Для паскаля:
uses CRT;
var a, b: integer;
begin
write (' Введите длину первого катета ');
read (a);
write (' Введите длину второго катета ');
read (b);
write (' Гипотенуза =');
write (sqr(a)+sqr(b));
end.