Одномерный массив

21.05.2010, 16:04. **Показов** 981. **Ответов** 1

Author24 — интернет-сервис помощи студентам

Запарился с задачей

Пусть дана последовательность из N элементов. Уменьшите ее, удалив первый из отрицательных элементов и сдвинув все остальные к началу.

@Mиxaил · 21.05.2010, 16:20

немного громоздко, но все-таки...

Pascal

const N=5;
var a:array[1..N] of integer;
    i,j,m:integer;
begin
for i:=1 to N do
  begin
    write('a[',i,'] = ');
    readln(a[i]);
  end;
for i:=1 to N-1 do
  if a[i]<0 then
    begin
      m:=i;
      for j:=m to N-1 do
        a[j]:=a[j+1];
      break;
    end;
for i:=1 to N-1 do
  write(a[i]:4);
readln;
end.

Stas987
		1
	Одномерный массив 21.05.2010, 16:04. Показов 981. Ответов 1 Метки нет (Все метки) Запарился с задачей Пусть дана последовательность из N элементов. Уменьшите ее, удалив первый из отрицательных элементов и сдвинув все остальные к началу.

	21.05.2010, 16:20

Одномерный массив

Решение