Удаление последнего отрицательного элемента

@KatrinVev · Регистрация: 21.01.2013

Составьте программу удаления последнего отрицательного элемента одномерного массива A(N).

@Valery__ · 05.03.2013, 12:57

Pascal

Program mas1;
Const n=20;
Type mas = array[1..n] of integer;
 
Var a:mas;
    i,x:integer;
    
BEGIN
  x:=0;
  for i:=1 to n do
    begin
      a[i]:=random(50)-20;
      write(a[i]:4);
      if a[i]<0 then 
        x:=i;
    end;
  writeln;
  for i:=1 to x-1 do
      write(a[i]:4);
  for i:=x to n-1 do
    begin
      a[i]:=a[i+1];
      write(a[i]:4);
    end;
END.

28 22 -20 4 -11 10 -2 12 24 -18 6 29 23 21 -14 -4 18 16 -9 12
28 22 -20 4 -11 10 -2 12 24 -18 6 29 23 21 -14 -4 18 16 12

@KatrinVev · 25.03.2013, 17:43 **[ТС]**

объясните пожалуйста

@KatrinVev 1 / 1 / 0 Регистрация: 21.01.2013 Сообщений: 83
		1
	Удаление последнего отрицательного элемента 05.03.2013, 10:54. Просмотров 1283. Ответов 2 Метки нет (Все метки) Составьте программу удаления последнего отрицательного элемента одномерного массива A(N). 0

@KatrinVev 1 / 1 / 0 Регистрация: 21.01.2013 Сообщений: 83
	25.03.2013, 17:43 [ТС]	3
	объясните пожалуйста 0

Опции темы

Удаление последнего отрицательного элемента

Решение