,буду если : определить значение переменной s после выполнения следующих фрагментов программы: 1. var s; real; i : integer; . .s : = 0; for i : = 1 to 4 do begin s : = s*10 ; s : = s + i ; end; определить значение переменной y после выполнения следующих фрагментов программы: 2. var y : real; x : integer; . . y : = 0; for x : = 6 downto 2 doy : = y +x; y : = y /5; определить значение переменной s после выполнения следующих фрагментов программы: 3. var s : real; n : integer; . . s : = 0; for n : = 6 downto 3 do begin s : = s + 1; s : = s *2; end;

Я всё вижу по глазам

Что ты хочешь мне сказать

(На-на-на-на, а-а-а)

Я не буду тебя знать, а ты меня

(Ты меня, ты меня, ты меня, ты меня)

И мы друг друга (Ты меня)

Под ногами лёд, и в сердце лёд

В стакане лёд, я не помню кто я

Душит мороз, я такой холодный

Я такой холодный!

Я читаю по губам

Мне нечего сказать

(На-на-на-на, а-а-а)

Я не вижу смысла врать (а-а)

Мне хватит слов, что я сказал

(Не вижу смысла врать)

В 7:30 утра автобус врезался в автомобиль марки Suzuki

И какое-то время, буквально тащил его, по ходу движения

Как подтвердили в ГИБДД

Одиннадцатилетняя девочка — пассажирка Suzuki погибла в огне

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

Что же случилось — ещё предстоит выяснить

Следователи сейчас проводят проверку

#Сюда пишем массив

Massive = [1, -3, 10, 222, -30, -10]

#Переменная для опредиления суммы отрицательных эллементов массива

Sum = 0

#Переменная для опредиления кол-ва отрицательных эллементов массива

Count = 0

#Переменная для подсчета среднего арифметического

Avg = 0

#Цыкл, в ходе которого мы находим сумму и кол-во отрицательных эллементов массива  

for elements in Massive:

   if elements < 0:

      Sum = elements + Sum

      Count = Count + 1

#Подсчет и округление среднего арефметического

if Count > 0:

   Avg = int(Sum / Count)

#Вывод среднего арефметического

print(Avg)