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.
объяснение:
даром ничто не дается: судьба
жертв искупительных просит
в стремленье к идеалу дурного, впрочем, нет.
воля и труд человека дивные дивы творят!
знай: сила не в богатстве, не в том – велик ли, мал ли чин а в равенстве и братстве!
о сердце не научится любить,которое устало ненавидеть.
той руки удар смертелен, которая ласкала нас.
у счастливого недруги мрут, у несчастного друг умирает.