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.

объяснение:

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

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

 

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

 

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

 

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

 

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

 

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

 

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

у меня получилось 15

а-апельсины

б-бананы

с-сливы

представьте в виде таблицы

б     б (два друга) б   б   б   б   б(пять )                                       б б

а     а                         а   а   а   а   а                                                                     а

с     с                                                                     с с с с с(5+2=7слив)

это проверка:

в итоге просто напишите таблицей и посчитайте колличество столбиков

ответ: 15

кст песни(слова) нурминский - купить бы джип



все тексты песен(слова) нурминский

[припев]:

купить бы джип бронированный, 

весь заряженный, тонированный.

чтобы не лезла нечисть, не видеть суеты -

ли полумесяцы, кресты?

купить бы джип бронированный, 

весь заряженный, тонированный.

чтобы не лезла нечисть, не видеть суеты -

ли полумесяцы, кресты?

[куплет 1, нурминский]:

квартала эти улицы -

разбитые машины, люди губятся.

дурью травятся.

не предлагайте ничего. куда всё катится?

братишка, подготовь-ка мне номера адвокатов;

так, на всякий случай; так, от всяких гадов.

сегодня на районе, сегодня я закатан.

желаю видеть никого! желаю лишь закаты.

опять эти менты (с*ки)

шухер, убери! разбег, пацаны.

и беги! беги, куда не важно.

один же привод был, тебе нельзя ведь дважды.

(нет, нет, нет)

опять придётся отмечаться пацанам,

чьим подвигам не быть сбываться.

кому-то дома, с отчимом ругаться.

отче наш - спаси! как перестать боятся?

[припев]:

купить бы джип бронированный, 

весь заряженный, тонированный.

чтобы не лезла нечисть, не видеть суеты -

ли полумесяцы, кресты?

купить бы джип бронированный, 

весь заряженный, тонированный.

чтобы не лезла нечисть, не видеть суеты -

ли полумесяцы, кресты?

[куплет 2, нурминский]:

отдайте молодым этот дым -

всем, кто нуждается! всем, кто ругается.

не думал ли братёк, ты покаяться?

скажешь не грешил? да нет - тебе кажется.

ты пока-пока, ты пока-покажи-ка мамка

куда запрятала травматку.

братишке вечером несладко.

пойду и порешаю! не включу обратку.

и пусть простят же нас эти небеса -

за наши, за наши деяния.

вдруг вся родня идут делить наследный дом.

молодые вдовы, ну а потом -

люди болеют, смс-кой поддержи -

протяни руку .

и сколько ждать? да, я скорее улечу.

не надо мне летать! я просто хочу.

[припев]:

купить бы джип бронированный, 

весь заряженный, тонированный.

чтобы не лезла нечисть, не видеть суеты -

ли полумесяцы, кресты?

купить бы джип бронированный, 

весь заряженный, тонированный.

чтобы не лезла нечисть, не видеть суеты -

ли полумесяцы, кресты?



дополнительная информация

текст песни нурминский - купить бы джип.

автор текста: альберт шарафутдинов.

ноябрь 9, 2018