SOs

[korshvi]

Такая ситуация, поступил на программера, препод ничего не объяснил, но дал задание, как его делать, понятия не имею, но сделать надо, ибо будет "*опа".
Одним словом нид хелп, я знаю тут сидят крутые ребята, которым как 2 пальца это.


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

Нужен текст проги.

[Randall C. Walker]

program masiv;
var
min,sum,kol,i,j,Nmin,N:integer;
x:word;
a:array[1..255] of integer;
begin
writeln('ввети размер массива ');
readln(N);
writeln('Введи элементы массива ');
for i:=1 to N do
begin
  write('a[',i,']=');
  readln(a[i]);
end;
sum:=0;
kol:=0;
min:=a[1];
j:=0;
{1}
for i:=1 to N do
    begin
         if a[i]=0 then kol:=kol+1; {подсчет количества нулевых элементов}
         if min>a[i] then
                  begin
                          min:=a[i];
                          Nmin:=i; {вычисления номера расположения мин элемента}
                  end;
    end;
{2}
for i:=Nmin+1 to N do {подсчет суммы}
    sum:=sum+a[i];
{3}
for i:=2 to N do
 begin
   x:=a[i];
   j:=i-1;
while (abs(x)<abs(a[j])) and (j>0) do
   begin
       a[j+1]:=a[j];
       j:=j-1;
   end;
a[j+1]:=x;
 end;
writeln('Сумма элеметов массима после минимального ',sum);
writeln('Количество нулей в массиве ' ,kol);
writeln('Сортировка массива:');
for i:=1 to N do
write (a[i],' ');
readln;
end.

[min@y™]

поступил на программера

ты крут. когда я поступал, мне проходных баллов не хватило.

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

А вот такие задачи я решал как нефиг делать задолго до попыток поступления.

[korshvi]

Сообщение от Randall C. Walker

program masiv;
var
min,sum,kol,i,j,Nmin,N:integer;
x:word;
a:array[1..255] of integer;
begin
writeln('ввети размер массива ');
readln(N);
writeln('Введи элементы массива ');
for i:=1 to N do
begin
  write('a[',i,']=');
  readln(a[i]);
end;
sum:=0;
kol:=0;
min:=a[1];
j:=0;
{1}
for i:=1 to N do
    begin
         if a[i]=0 then kol:=kol+1; {подсчет количества нулевых элементов}
         if min>a[i] then
                  begin
                          min:=a[i];
                          Nmin:=i; {вычисления номера расположения мин элемента}
                  end;
    end;
{2}
for i:=Nmin+1 to N do {подсчет суммы}
    sum:=sum+a[i];
{3}
for i:=2 to N do
 begin
   x:=a[i];
   j:=i-1;
while (abs(x)<abs(a[j])) and (j>0) do
   begin
       a[j+1]:=a[j];
       j:=j-1;
   end;
a[j+1]:=x;
 end;
writeln('Сумма элеметов массима после минимального ',sum);
writeln('Количество нулей в массиве ' ,kol);
writeln('Сортировка массива:');
for i:=1 to N do
write (a[i],' ');
readln;
end.

Огромное спасибо тебе!