Медведь, впадая в зимнюю спячку, весил 200 кг. каждый день во время сна он худеет на 1700 г. через сколько - id883735920211221 от sok2710 21.12.2021 16:14

Question

Информатика: Медведь, впадая в зимнюю спячку, весил 200 кг. каждый день во время сна он худеет на 1700 г. через сколько дней медведь проснётся, если условием его выхода из зимней спячки является снижение веса на 50% от первоначального? напишите блок схему решения, быстрее !

sok2710 · Accepted Answer

// PascalABC.NET 3.0, сборка 1128
begin
var a:=ArrRandom(20,-10,19);
a.Println(','); // 1
var b:=ReadArrInteger('Введите 10 целых чисел',10); // 2
Writeln('Количество положительных элементов ',
    a.Where(x->x>0).Count); // 3
for var i:=0 to 19 do
    if a[i]<0 then a[i]:=0;
Writeln('Массив А после замены отрицательных'); a.Println(','); //4
Writeln('Сумма положительных элементов ',
    a.Where(x->x>0).Sum) // 5
end.

Тестовое решение:
14,8,9,-5,6,3,3,-10,-8,18,7,13,2,17,-1,0,4,-3,8,-8
Введите 10 целых чисел -5 0 13 -7 -14 11 8 19 -3 -1
Количество положительных элементов 13
Массив А после замены отрицательных
14,8,9,0,6,3,3,0,0,18,7,13,2,17,0,0,4,0,8,0
Сумма положительных элементов 112

MOGZ ответил