Написать программу на языке Паскаль для решения следующих задач
1. Дан массив, состоящий из 15 вещественных чисел (вводятся с клавиатуры). Найти количество положительных и количество отрицательных элементов массива. Вычислить на сколько больше или меньше положительных элементов.
2.Напишите программу для вычисления выражения Р=а^5*b^5*c^5, используя подпрограмму вычисления пятой степени числа.
​

1)

a = 1

b = 7

b = 1? нет

b = 7 - 2 = 5

a = 1 * 8 = 8

b = 1? нет

b = 5 - 2 = 3

a = 8 * 8 = 64

b = 1? нет

b = 3 - 2 = 1

a = 64 * 8 = 512

b = 1? да , выход

a = 512

b = 1

2)

m = 53

n = 16

m = n ? нет

m > n ? да

n = 16

m = 53 - 16 = 37

m = n? нет

m > n? да

n = 16

m = 37  - 16 = 21

m = n? нет

m > n? да

n = 16

m = 21 - 16 = 5

m = n? нет

m > n? нет

n = 16 - 5 = 11

m  = 5

m = n? нет

m > n? нет

n = 11 - 5 = 6

m = 5

m = n? нет

m > n? нет

n = 6 - 5 = 1

m = 5

m = n? нет

m > n? да

m = 5 - 1 = 4

n = 1

m = n? нет

m > n? да

m = 4 - 1 = 3

n = 1

m = n? нет

m > n? да

m = 3 - 1 = 2

n = 1

m = n? нет

m > n? да

m = 2 - 1 = 1

n = 1

m = n? да. Выход

m = 1

n = 1

1)

Program p1;

Var a,b,c,z: real;

Begin

Write('Введите 1 число ');

readln(a);

Write('Введите 2 число ');

readln(b);

z:=frac(a);

c:=frac(b);

if (a > 99) and (z = 0)  then Writeln(a);

if (b > 99) and (c = 0)  then Writeln(b);

End.

*функция frac() берет от вещественного числа дробную часть

2)

Program p1;

Var a, i, n, k: integer;

Begin

Write('Введите количество чисел последовательности: ');

readln(n);

k:=1;

For i:=1 to n do begin

readln (a);

if (a mod 3 =0) then k:=k*a*a;

end;

Writeln('Произведение квадратов чисел, кратных трём - ',k);

End.