Автор: Kerjakoff 4.12.2006 16:37
удалить из массива М(26) первый положительный элемент
Автор: klem4 4.12.2006 17:16
Уже можно приступать ? Ко второй твоей теме тоже относится. ПОИСК + FAQ: http://forum.pascal.net.ru/index.php?showtopic=2694
Решалось сотни раз.
Автор: }0pa 5.12.2006 3:43
Сомневаюсь, что тебе нужны дин. массивы. Задачка-то школьная, но тогда лови статику
Удаляемый эл-т ставим на последнее место и выводим все, кроме последнего
Код
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.
Автор: мисс_граффити 5.12.2006 4:26
а зачем его ставить на последнее место, если все равно последний элемент не выводим? какая разница, что там будет?
Автор: volvo 5.12.2006 4:34
Цитата
Сомневаюсь, что тебе нужны дин. массивы.
Это ты теперь будешь решать, что кому нужно?
У автора спрашивать надо... А свои сомнения оставь при себе !
! |
|
}0pa, еще одна программа, которая НЕ компилируется современным компилером - ты улетишь в БАН... Я ясно выражаюсь?
|
Автор: Kerjakoff 5.12.2006 14:08
дак как теперь задачу то сделать :-(