Дан одномерный массив из 25 целых случайных чисел из диапазона [-100; 50] решите .

program helloworld;

var n: array [1..25] of integer;

var i: smallint;

begin

      for i : = 1 to 25 do

              n[i] : = -100 + random(150);

      for i : = 1 to 25 do

          if n[i] > 0 then writeln(n[i]);

end.

program e7;

var x: integer;

begin

writeln('vvedite znachenie gradusnoi meri ugla');

readln(x);

if a=180 then writeln('razvernutii') else writeln('ne razvernutii');

readln;

end.

если вы работаете в школе на программе freepascal, то перед "end" можно "readln" не писать. если же вы работаете на программе turbopascal, "readln" перед "end" обязательно нужно писать.

проводник - абориген.

потому что если бы он спросил у пришельца, которые всегда лгут, "кто ты? ", то тот солгал, сказав "абориген". и проводник пришел и сказал правду.

а если бы проводник был бы пришельцем, спросив у аборигена "кто ты? ", то абориген   сказал бы правду. но пришелец путешественнику соврал бы, сказав, что тот пришелец.