Комментарии 4

• Можно с динамическим массивом, чтобы было возможно любое количество элементов. + сортировка

  uses PT4; var b,num,temp:real; n,i,j:integer; arr: array of real; begin Task('Series17'); read(b,n); SetLength(arr,n+1); arr[0]:=b;//занесение b в массив for i:=1 to n do //занесение всех остальных переменных в массив begin read(num); arr[i]:=num; end; //сортировка массива for i:=0 to n-2 do for j:=0 to (n-1)-i do if(arr[j] > arr[j+1]) then begin temp:= arr[j]; arr[j] := arr[j+1]; arr[j+1]:=temp end; for i:=0 to n do writeln(arr[i]); end.

  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26

  uses PT4; var b,num,temp:real;     n,i,j:integer;     arr: array of real; begin Task('Series17'); read(b,n); SetLength(arr,n+1); arr[0]:=b;//занесение b в массив for i:=1 to n do //занесение всех остальных переменных в массив   begin     read(num);     arr[i]:=num;   end; //сортировка массива for i:=0 to n-2 do   for j:=0 to (n-1)-i do     if(arr[j] > arr[j+1]) then       begin         temp:= arr[j];         arr[j] := arr[j+1];         arr[j+1]:=temp       end; for i:=0 to n do writeln(arr[i]); end.

  Ответить

• Без массивов. При вводе чисел последовательности, сравниваем их с В. Как только В впервые!!! меньше вводимого числа — выводим его. Переменной С контролируем чтобы В выводилось лишь раз.

  var n,i,c:integer;// c - check выводилось ли b b,num:real; begin read(b); read(n); c:=0;// число b пока не выводили for i:=1 to n do begin read(num); if (c=0)and(b<num) then begin write(b); c:=1;//число b уже вывели end; write(num); end; if c=0 then write(b);//если b самое старшее - цикл закончен, но с=0 end.

  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

  var n,i,c:integer;// c - check выводилось ли b b,num:real; begin   read(b);   read(n);   c:=0;// число b пока не выводили   for i:=1 to n do     begin     read(num);     if (c=0)and(b<num) then       begin       write(b);       c:=1;//число b уже вывели       end;     write(num);     end;   if c=0 then write(b);//если b самое старшее - цикл закончен, но с=0 end.

  Ответить

  • Да, именно этого и хотел автор вопросов… заменил своё решение вашим, с небольшими изменениями в оформлении..
    Было:

    program Series17; const N=5; var i,B :Integer; m :array [1..N] of real; begin write('Введите B : '); readln(B); for i:=1 to N do begin write('Введите ',i,' число из набора :'); Readln(m[i]); end; if m[1]>=B then writeln(' ',B); for i:=1 to N do begin writeln(m[i]); if i+1>N then begin if m[i]< =B then writeln(' ',B); end else if (m[i]<=B) and (B<m[i+1]) then writeln(' ',B); end; end.

    1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26

    program Series17; const N=5; var   i,B :Integer;   m :array [1..N] of real; begin write('Введите B : '); readln(B); for i:=1 to N do    begin      write('Введите ',i,' число из набора :');      Readln(m[i]);    end; if m[1]>=B then writeln(' ',B); for i:=1 to N do    begin     writeln(m[i]);     if i+1>N then      begin       if m[i]< =B then writeln(' ',B);      end     else      if (m[i]<=B) and (B<m[i+1]) then writeln(' ',B);    end; end.

    Стало:

    program Series17; var n,i,c:integer;// c - check выводилось ли b b,num:real; begin Write('N:'); read(n); Write('B:'); read(b); c:=0;// число b пока не выводили for i:=1 to n do begin Write('Num:'); readln(num); if (c=0)and(b<num ) then begin writeln(b); c:=1;//число b уже вывели end; writeln(num); end; if c=0 then write(b);//если b самое старшее - цикл закончен, но с=0 end.

    1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

    program Series17; var n,i,c:integer;// c - check выводилось ли b b,num:real; begin   Write('N:');   read(n);   Write('B:');   read(b);   c:=0;// число b пока не выводили   for i:=1 to n do     begin     Write('Num:');     readln(num);     if (c=0)and(b<num ) then       begin       writeln(b);       c:=1;//число b уже вывели       end;     writeln(num);     end;   if c=0 then write(b);//если b самое старшее - цикл закончен, но с=0 end.

    Ответить

• program Series17;//pabc.net //uses PT4; begin //Task('Series17'); var B := ReadReal(); var N := ReadInteger(); var a := ReadSeqReal(N); a.Concat(Seq(B)).Order.Println; end.

  1 2 3 4 5 6 7 8 9 10

  program Series17;//pabc.net //uses PT4;   begin   //Task('Series17');   var B := ReadReal();   var N := ReadInteger();   var a := ReadSeqReal(N);   a.Concat(Seq(B)).Order.Println; end.

  Ответить