40 ! 1) дан массив действительных чисел, размерность которого n. подсчитать, сколько в нем отрицательных, положительных и нулевых элементов. 2)дана последовательность чисел, среди которых имеется один нуль. вывести на печать все числа до нуля включительно. 3)дана последовательность из n различных целых чисел. найти сумму ее членов, расположенных между максимальным и минимальным значениями (в сумму включить и оба этих числа). решите, , в паскале и пришлите скриншот решения. копировать не нужно.

ответ:

1) var a: array [1..100] of integer;

    n,i,k,t,m: integer;

begin

read(n);

for i: = 1 to n do

a[i]: = random(100)-50;

for i: = 1 to n do

if a[i]=0 then

k: =k+1

    else if a[i]> 0 then

m: =m+1

else if a[i]< 0 then

t: = t+1;

writeln('нулевых чисел: ',k ,'больше нуля : ', m,'меньше нуля: ',t);

end.

объяснение:

даром ничто не дается: судьба

жертв искупительных просит

в стремленье к идеалу дурного, впрочем, нет.

воля и труд человека дивные дивы творят!

знай: сила не в богатстве, не в том – велик ли, мал ли чин а в равенстве и братстве!

о сердце не научится любить,которое устало ненавидеть.

той руки удар смертелен, которая ласкала нас.

у счастливого недруги мрут, у несчастного друг умирает.