Накануне решали, пойти ли завтра на или в лес по грибы. высказали следующие пожелания: маша: я пойду - id507611520230220 от тошкк 20.02.2023 07:50

Question

Информатика: Накануне решали, пойти ли завтра на или в лес по грибы. высказали следующие пожелания: маша: я пойду в лес, если света и настя пойдут в лес тоже, иначе пойду на . алексей: я пойду вместе с гришей . миша: я пойду в лес . настя: я вместе с мишей . гриша: если света и настя пойдут на , тогда я и сними, иначе пойду в лес . света хочет порыбачить. сколько рубят надо уговорить свете, чтобы они изменили свои решение, для того чтобы вместе пойти на ? если вариантов несколько, то выберите наименьшее количество

тошкк · Accepted Answer

Const l = 5;
var
a: array[1..l] of integer;
d: array[1..l] of real;
i, otr, k, m: integer;
begin
otr:=0; k:=0; m:=0;
//считаем массив а
for i:=1 to l do
begin
readln(a[i]);
//если ввели положительное число,увеличим перем. otr на 1
if a[i] < 0 then
inc(otr);
//если ввели отрицательное число,увеличим перем. k на 1
//и к переменной m прибавим элемент
if a[i] > 0 then
begin
inc(k);
inc(m, a[i]);
end;
end;
//заполним массив d
for i:=1 to l do
//если индекс четный, присвоим элементу otr
//иначе присвоим среднее арифметическое
if i mod 2 = 0 then
d[i] := otr
else
d[i] := m/k;
end.

MOGZ ответил