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

[stas981]

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

[sergio11]

Последовательность должна быть в виде массива? и кокое заполнение вручную или случайные числа выводить?

[ROMA2PVT]

Последовательность должна быть в виде массива? и кокое заполнение вручную или случайные числа выводить?

А ты название темы глянь.

[sergio11]

Сообщение от ROMA2PVT

А ты название темы глянь.

не заметил

[ROMA2PVT]

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

Наработки показывайте как пытались.

[sergio11]

program aaa;
const
n=10;
var
i:integer;
mass:array[1..n] of integer;
begin
writeln('vvedite elementy');

for i:=1 to n do
begin
write('mas[',i,']');
readln(mass[i]);
end;
for i:=1 to n do
begin
if mass[i]<0 then mass[i]:=mass[i+1];
writeln(mass[i]);
end;
readln;
end.

[ROMA2PVT]

sergio11 посмотрите повнимательнее.Удаляемый элемент замещается элементом который идёт после него.Алгоритм таков:выводим первый отрицательный элемент и запоминаем его индекс ну а дальше уж удаляем.

[sergio11]

и как это должно выглядеть? а то я досихпор не знаю как элемент в массиве удальть!

[ROMA2PVT]

program matr;
uses
   crt;
var
    mas:array [1..100] of integer;
    i,n,j,imn:integer;
begin
randomize;
write('Введите количество элементов: ');
readln(n);
writeln('Исходный массив: ');
for i:=1 to n do
 begin
  mas[i]:=random(10)-5;
  write(mas[i]:4);
  end;
writeln;
imn:=0;
for i:=1 to n do
if mas[i]<0 then
begin
writeln('Первый отрицательный элемент: ',mas[i]);
imn:=i;
break;
end;
writeln;
if i=imn then
begin
for i:=imn to n-1 do
begin
mas[i]:=mas[i+1];
end;
writeln('Массив после удаления: ');
for i:=1 to n-1 do
begin
write(mas[i]:4,' ');
end;
end
else write('В массиве нет отрицательных элементов!!!');
writeln;
 end.

[Ольга123456]

Здравствуйте!Помогите пожалуйста!


Дан одномерный массив А размера n(n<=30).получить новый массив В,каждый элемент которого вычисляется по формуле bi=cosai+cos^2i+cos^3i+..+cosa^ni

(формула словами:б итое равно косинус а итого+косинус квадрат и+косинус куб и.......и так далее)
среда-Турбо Паскаль