Используя готовый листинг программы переделать его к следущему условию задачи: Дан массив F состоящий из 5 элементов вещественного типа. Найти количество положительных элементов ммассива Program zadacha :
var
mass: array [1...15] of integer:
i,z: integer
begin
for i:=1 to 15 do
readln (mass [i]);
for i:= 1 to 15 do
z:=z*mass[i];
writeln(Сумма массива равна : z);

end.

print('--- 1 ---')

b = float(input('Введите b: '))

a = b**3/9-6.4*(b+8)+3*b/4

print('a =', a)

print()

print('--- 2 ---')

a = float(input('Введите a: '))

b = float(input('Введите b: '))

d = a**3*b/7-2*a*b**2*(a+b)

print('d =', d)

print()

print('--- 3 ---')

a = float(input('Введите a: '))

b = float(input('Введите b: '))

q = (3*a**3-2*a*b+b**2)/(2*a*(3*a-b))

print('q =', q)

print()

print('--- 4 ---')

x = float(input('Введите x: '))

y = float(input('Введите y: '))

k = x**3-4*x*y*(x+y**2)

print('k =', k)

print()

print('--- 5 ---')

v = float(input('Введите v: '))

h = abs(v+1.7)*(2*v+3)

print('h =', h)

Программа 1:

program test;

var N : integer;

begin

Randomize;

N := Trunc(Random(899) + 100);

WriteLn('Исходное число - ', N);

Write('Перевёрнутое число - ');

While N > 0 do begin

 write(N mod 10);

 N := N div 10

end;

writeln

end.

Программа 2:

Program test1;

Uses Math;

var

 K1, K2 : array [1..3] of real;

 i : integer;

 L : real;

begin

write('Введите координаты X, Y, Z первой точки: ');

for i := 1 to 3 do Read(K1[i]);

write('Введите координаты X, Y, Z второй точки: ');

for i := 1 to 3 do Read(K2[i]);

L := 0;

{Суммируем квадраты разностей между одноимёнными координатами}

for i := 1 to 3 do L := L + Power( (K1[i] - K2[i]), 2);

WriteLn('Расстояние между точками L = ', sqrt(L):8:3 )

end.