Pascal-массивы

[Айдар]

Добрый день помогите пожалуйста решить задачи по лаб. работе до завтра.

В одномерном массиве, состоящем из n вещественных элементов,
вычислить:
1) сумму элементов массива с нечетными номерами;
2) сумму элементов массива, расположенных между первым и последним
отрицательными элементами.
Сжать массив, удалив из него все элементы, модуль которых не превышает
единицу. Освободившиеся в конце массива элементы заполнить нулями

[MAKEDON]

Задача вроде банальная. Что не получается? Есть наработки какие? Или проблема с алгоритмом?

[Айдар]

Знаешь наработок нету, я был бы благодарен тебе если бы ты мне написал основные коды программ (тело)

[Deamonig]

Вот решение на паскале:

program masiv;
const n=1000;
var
a:array[1..n] of integer;
b:array[1..n] of integer;
S1,S2:integer;
i,l,i1otr,i2otr:integer;
begin
{я считаю что уже есть некий загруженный массив а, напишеш загрузку его из файла или просто, сам}

for i:=1 to n do
 begin
  if (a[i] mod 2) <>0
  then
   s1:=s1+a[i];

   if i1otr=0 then
    if a[i]<0 then i1otr:=i;

   if a[i]<0 then i2otr:=i;

 end;

for i:=i1otr to i2otr do
s2:=s2+a[i]; //сумма между 1 и последним отрицательным элементом массива, с учетом этих элементов, если же нужно без учёта этих элементов то вместо for i:=i1otr to i2otr do пиши
(for i:=i1otr+1 to i2otr-1 do)



for i :=1 to n do
if abs(a[i])>1
then
 begin
  l:=l+1;
  b[l]:=a[i];
 end;

for i:=l to n do
b[i]:=0;

writeln('symma s nechetnumi nomerami=',s1);
writeln('symma mejdy 1 i 2 otricateljnum elementami=',s2);
for i:=1 to n do
writeln('b[',i,']=',b[i]); //вывод сжатого массива

end.