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

Нет его не зовут билл)

Нет его зовут не билл

Const n=8; var x : array[1..n] of real;     i : integer; min : real; begin randomize; writeln('исходный массив: '); for i: =1 to n do   begin   x[i]: =20*random-10;   write(x[i]: 6: 2,' ');         end;   writeln; min: =x[1]; for i: =2 to n do   if x[i] < min then min: =x[i]; writeln('min=',min: 6: 2); for i: =1 to n do   if x[i]< 0 then x[i]: =min; writeln('измененный массив: '); for i: =1 to n do write(x[i]: 6: 2,' '); end. пример: исходный массив:   -7.84   -9.97   7.00   -8.26   -7.71   -3.88   7.59   -2.32  min= -9.97 измененный массив:   -9.97   -9.97   7.00   -9.97   -9.97   -9.97   7.59   -9.97 

Var n,m: interer; begin    write('введите день') ;     readln(d);   write('введите месяц'); readln(m); if (m = 2) and (d=28) then  writeln('день - 1',' месяц - 3');   if (m=1) or (m=3) or (m=5) or (m=7) or (m=8) or (m=10) or (m=12) then if (d> 1) and (d< 31) then begin d: =d+1; writeln('день -',d,'месяц- ',m); end else if d=31 then begin m: =m+1; wrteln('день - 1','месяц- ',m); end; if (m=2) or (m=4) or (m=6) or (m=9) or (m=11) they if d< 30 then begin d: =d+1; writeln('день -',d,'месяц- ',m); end else d=30 then begin m: =m+1; wrteln('день - 1','месяц- ',m); end; readln; end.недоработана