Логики 5.30 обсуждая конструкцию нового трёхмоторного самолёта, трое конструкторов поочередно высказали - id355414220220227 от мууур1 27.02.2022 00:12

Question

Информатика: Логики 5.30 обсуждая конструкцию нового трёхмоторного самолёта, трое конструкторов поочередно высказали следующие предположения: 1) при отказе второго двигателя надо приземляться, а при отказе третьего можно продолжать полёт; 2) при отказе первого двигателя лететь можно, или при отказе третьего двигателя лететь нельзя; 3) при отказе третьего двигателя лететь можно, но при отказе хотя бы одного из остальных надо садиться. лётные испытания подтвердили правоту каждого из конструкторов. определите,

мууур1 · Accepted Answer

var

mas: array[0..19]of integer;

a, b, c, e: integer;

begin

for a := 0 to 19 do mas[a] := random(100) - 50;

//заполняем массив

for a := 0 to 19 do if mas[a] < 0 then b := b + 1;

//количество отрицательных элементов

for a := 0 to 19 do if mas[a] mod 2 = 0 then c := c + mas[a];

//сумму четных элементов

for a := 0 to 19 do

case mas[a] of

1..20: e := e + mas[a];

end;

//произведение элементов из интервала 1;20

write(b, ' ', c, ' ', e);

end.

пометки после двух слешей в программе писать не нужно , и сам массив я сделал на 20 элементов

MOGZ ответил