Написать программы на Паскале. 1. Вычислить . X - натуральное число. 2. Среди 10 введённых с клавиатуры чисел подсчитать количество отрицательных и произведение положительных. Рассмотреть случай если отрицательных чисел нет.

Предыдущий
вопрос Следующий
вопрос

Программа 1:

program Power;
var
X, N: Integer;
Result: Longint;
begin
writeln('Введите число X: ');
readln(X);
writeln('Введите степень N: ');
readln(N);
Result := 1;
for var i := 1 to N do
Result := Result * X;
writeln(X, ' в степени ', N, ' равно ', Result);
end.

Программа 2:

program NumbersCount;
var
Num, NegativeCount, PositiveProduct, x: Integer;
begin
NegativeCount := 0;
PositiveProduct := 1;
for x := 1 to 10 do
begin
writeln('Введите число: ');
readln(Num);
if Num < 0 then
NegativeCount := NegativeCount + 1
else if Num > 0 then
PositiveProduct := PositiveProduct * Num;
end;
writeln('Количество отрицательных чисел: ', NegativeCount);
if PositiveProduct <> 1 then
writeln('Произведение положительных чисел: ', PositiveProduct)
else
writeln('Отсутствуют положительные числа');
end.