Задан массив А (N). Добавить массив С(К). Выполнить сортировку включением. В полученном массиве определите количество элементов,

[kuraman]

турбо паскаль.. Задан массив А (N). Добавить массив С(К). Выполнить сортировку включением. В полученном массиве определите количество элементов, которые меньше заданного значения М.

Помогите пожалуйста очень нужно

[Sciv]

Помогаю.


Заполнение массивов:

  randomize;
  j:=1;
  for i:=1 to n do begin
    a[i]:=Random(10)-5;
    b[j]:=a[i];
    write(b[j]:4);
    inc(j);
  end;
  for i:=1 to k do begin
    c[i]:=Random(10)-5;
    b[j]:=c[i];
    write(b[j]:4);
    inc(j);
  end;

сортировка:

  for i:=2 to n+k do begin
    s:=i-1;
    L:=b[i];
    While (s>0) and (L<=B[i]) do begin
      b[s+1]:=b[s];
      dec(s);
    end;
    b[s+1]:=L;
  end;
  WriteLn;

Объявляйте переменные и константы, добавляйте вывод массива на экран. НУ и найти элементы, меньшие М, вообще элементарно.

[kuraman]

если не сложно можете написать весь код?

[Sciv]

если не сложно можете написать весь код?

Мне сложно - я на работе сижу. А Вам что мешает?

[kuraman]

я этого не понимаю, а мне очень нужно потому и прошу помочь. пожалуйста помогите

[Sciv]

я этого не понимаю, а мне очень нужно

А пытались понять? Я так думаю, если очень захотеть - можно в космос улететь.

Ну вот Вам весь код:

const n=4;
      k=5;

var i,j,s,L,M: integer;
    a: array [1..n] of integer;
    c: array [1..k] of integer;
    b: array [1..k+n] of integer;
    

begin
  randomize;
  j:=1;
  WriteLn('Array A: ');
  for i:=1 to n do begin
    a[i]:=Random(10)-5;
    b[j]:=a[i];
    inc(j);
  end;
  WriteLn;
  WriteLn('Array C: ');
  for i:=1 to k do begin
    c[i]:=Random(10)-5;
    b[j]:=c[i];
    inc(j);
  end;
  WriteLn;
  WriteLN('Array B: ');
  for i:=1 to n+k do Write(B[i]:4);
  WriteLn;
  for i:=2 to n+k do begin
    s:=i-1;
    L:=b[i];
    While (s>0) and (L<=B[i]) do begin
      b[s+1]:=b[s];
      dec(s);
    end;
    b[s+1]:=L;
  end;
  Write('Vvedite M: ');
  ReadLn(M);
  j:=0;
  writeln('Sorted array: ');
  for i:=1 to k+n do begin Write(b[i]:4);
    if b[i]<M then inc(j);
  end;
  WriteLn;
  WriteLn('count of elements<M: ',j:4);
  ReadLn;
end.

[kuraman]

спасибо большое!

[Алексей_2012]

Не судите за мысль, но все же выскажу. Кошмар, скоро уже наверное пойдут задачи: "Памагите, я не магу на паскале вывесте сообщение Hallo Word"! НЕ понятно как такие простенькие задачки нельзя решать самому?

[s-andriano]

Сообщение от Алексей_2012

Кошмар, скоро уже наверное пойдут задачи...

Интересно другое:
люди при этом лгут самым бесстыдным образом, например:

а мне очень нужно

но все равно находят сочувствующих.

[Алексей_2012]

да понимаю, сам иногда писал от нечего делать, а людям которые хотят получить что-то не приложив своих усилий будет не очень легко. Ладно, это их дело, но все же одно дело хочу понять и готов приложить усилия...вот мои наработки, а другое дело: "Зделайте за меня плиз очент надаа до завтра". Ну в общем каждому свое