С. напишите программу подсчёта суммы всех отрицательных элементов заданного целочисленного массива размером 30 элементов. если отрицательных элементов нет, то сообщить об этом) p.s. в паскале

Var   n, i, s, k: integer;   a: array [1..30] of integer; begin   writeln('vvedite massiv');   for i: =1 to 30 do   readln(a[i]);   writeln('massiv');   for i: =1 to 30 do   write(a[i],' ');   writeln();   k: =0; s: =0;   for i: =1 to 30 do   if a[i]< 0 then   begin   s: =a[i]+s;   k: =1;   end;   if k=1 then   writeln('summa otricatelnih elementov: ',s)   else   writeln('otricatelnih elementov net');   readln();     end.

Для зручності позначимо: мг - голодний малюк мс - ситий малюк кг - голодний карлсон кс - ситий карлсон т - торт запишемо формулами  умову і: мг + кг + т = мс + кс  (1) кг < мс  (2) kc = 2 * мг  (3) підставимо (3) в (1) і перетворимо: мг + кг + т = мс + кс мг + кг + т = мс + 2*мг т = мс + 2*мг -  мг - кг т = мс + мг - кг т = (мс - кг) + мг згідно (2), вираз (мс - кг) > 0, отже т > мг відповідь: торт важить більше, ніж голодний малюк                                                                           -=alphaeus=-    p.s. дякую автору за цікаву : )

Объект             величина             значение                   свойство объекта  дом                     материал               кирпич                         кирпичный дом  человек             цвет глаз               голубой                       голубоглазый человек  сервиз               материал               фарфор                       фарфоровый сервиз