Компьютер вышел из строя. известно, что : 1) если монитор неисправен, то исправна видеокарта, но неисправна оперативная память. 2) если видеокарта исправна, то исправна оперативная память, но неисправнее монитор. 3) если оперативная память исправна, то исправна видеокарта, но неисправен монитор. исправен ли монитор?

Компьютер можно запустить без видеокарты и монитора. а без оперативной памяти - нет. соответственно, следуя из первого утверждения,  монитор не исправен.

var

    i,n, pol: integer;   //pol - количество положительных чисел, n - количество всех чисел

    a,s: real;   //a- вводимое число, s - сумма положительных чисел

begin

  pol: = 0;   //обнуляем счетчик

  s: = 0;  

  writeln('введите количество чисел');

  readln(n);

  for i: = 1 to n do

  begin

    writeln('введите число');

    readln(a);

    if a > 0 then

    begin

      s: = s + a;

      pol: = pol + 1;  

    end;

  end;

  writeln('среднее арифметическое положительных чисел:   ', s / pol);   {среднее арифметическое равно сумме чисел делить на их количество}

end.

Var abcd,a,b,c,d: integer; begin     abcd: =4579;     a: =abcd div 1000;     b: =abcd div 100 mod 10;     c: =abcd div 10 mod 10;     d: =abcd mod 10;     writeln(a,b,c,d);     writeln(a,c,b,d);     writeln(b,a,c,d);     writeln(b,c,a,d);     writeln(c,a,b,d);     writeln(c,b,a,d);     writeln(a,d,b,c);     writeln(a,d,c,b);     writeln(b,d,a,c);     writeln(b,d,c,a);     writeln(c,a,d,b);     writeln(c,b,d,a);     writeln(a,b,d,c);     writeln(a,c,d,b);     writeln(d,b,a,c);     writeln(d,b,c,a);     writeln(d,c,a,b);     writeln(d,c,b,a);     end.громозко, да? я не помню, как делать это через функцию. думаю, и так сойдет.