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

[Kerjakoff]

удалить из массива М(26) первый положительный элемент

[klem4]

Уже можно приступать ? Ко второй твоей теме тоже относится. ПОИСК + FAQ: Массивы. Матрицы. Типичные задачи.

Решалось сотни раз.

[}0pa]

Сомневаюсь, что тебе нужны дин. массивы. Задачка-то школьная, но тогда лови статику
Удаляемый эл-т ставим на последнее место и выводим все, кроме последнего

Код

uses crt;
const n=26;
type massiv = array[1..n]of integer;
var m:massiv;
    i,p:integer;
{-----------------------------------------------------------------------------}
procedure DelElem(var m1:massiv;c:integer;k:integer);
var j,T:integer;
begin
for j:=k to c-1 do
  begin
   T:=m[j];
   m1[j]:=m1[j+1];
   m1[j+1]:=T;
  end;
end;
{-----------------------------------------------------------------------------}
begin
writeln('Ввод массива');
for i:=1 to n do read(m[i]);
p:=0;
for i:=1 to n do
   if m[i]>0 then
     begin
       DelElem(m,n,i);
       p:=p+1;
       writeln('Искомый массив');
       for i:=1 to n-p do write(m[i]:3);
       exit
     end
end.

[мисс_граффити]

а зачем его ставить на последнее место, если все равно последний элемент не выводим? какая разница, что там будет?

[volvo]

Сомневаюсь, что тебе нужны дин. массивы.

Это ты теперь будешь решать, что кому нужно?

У автора спрашивать надо... А свои сомнения оставь при себе !

!

}0pa, еще одна программа, которая НЕ компилируется современным компилером - ты улетишь в БАН... Я ясно выражаюсь?

[Kerjakoff]

дак как теперь задачу то сделать :-(