Помощь - Поиск - Пользователи - Календарь
Полная версия: массив
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
Kerjakoff
удалить из массива М(26) первый положительный элемент
klem4
Уже можно приступать ? dry.gif Ко второй твоей теме тоже относится. ПОИСК + 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
Цитата
Сомневаюсь, что тебе нужны дин. массивы.
Это ты теперь будешь решать, что кому нужно? mad.gif

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

Kerjakoff
дак как теперь задачу то сделать :-(
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.