Спасайте, последний день остался

[Mello]

Спасайте, последний день остался

В одновременном массиве, состоящем из n элементов, вычислить:
1.Номер минимального по модулю элемента массива.
2.Сумму модулей элементов этого массива расположенных после первого отрицательного элемента.
3.Сжать массив удалив из него все элементы величина которых находится в интервале[a,b].Освободившиеся в конце массива элементы заполнить нулями.

 

[Валерий]

Спасайте, последний день остался

Мы будем тебя помнить...

 

[Suharev]

Спасайте, последний день остался

Я уж было обрадовался что конец света завтра.

 

[М.Васильев]

И эти люди возможно станут у руля промышленности государства.И что они смогут сделать? Даже украсть то ,что лежит , не сумеют

 

[Vladimir_S]

Да ладно, сейчас нарисую. Делов-то...

 

[Vladimir_S]

Вот:

Const
 N=20;
Var
 C,D:Array[1..N] of Integer;
 i,j,Imin:Byte;
 Min,a,b:Integer;
 Sum:Word;

Begin
 Randomize;
 Writeln('Initial array:');
 Min:=200;
 For i:=1 to N do
  begin
   C[i]:=-50+Random(100);
   Write(C[i]:8);
   if Abs(C[i])<Min then
    begin
     Imin:=i;
     Min:=Abs(C[i]);
    end;
  end;
 Writeln;
 Writeln('Number of minimal element (abs. value) is ',Imin);
 Writeln;
 Sum:=0;
 j:=0;
 Repeat
  Inc(j);
 Until C[j]<0;
 For i:=j+1 to N do Inc(Sum,Abs(C[i]));
 Writeln('Sum= ',Sum);
 Writeln;
 Write('a= ');
 Readln(a);
 Write('b= ');
 Readln(b);
 For i:=1 to N do D[i]:=0;
 j:=0;
 For i:=1 to N do
  if (C[i]<a) or (C[i]>b) then
   begin
    Inc(j);
    D[j]:=C[i];
   end;
 Writeln('Compressed array: ');
 For i:=1 to N do Write(D[i]:8);
 Readln
End.

 

[кочевник]

Да ладно, сейчас нарисую. Делов-то...

Есть добрые люди!
По крайней мере у нас на форуме.

 

[sedoy]

Да ладно, сейчас нарисую. Делов-то...

Такое чувство, что ты, Владимир, опоздал. Мы его потеряли.

 

[Fenix]

Такое чувство, что ты, Владимир, опоздал. Мы его потеряли.

А нефига было тянуть до последнего.

 

[Vladimir_S]

Такое чувство, что ты, Владимир, опоздал. Мы его потеряли.

Да ну вас, заклевали страждущего, он и убёг...