операции с массивом Опции

[timan]

В одномерном массиве, состоящем из n вещественных элементов вычислить:
1. Кол-во элементов меньших С.
2. Сумму целых частей элементов массива, расположенных после последнего отрицательного элемента.
Преобразовать массив таким образом, чтобы сначала располагались все элементы, отличающие от максимального не более чем на 20 %, а потом– все остальные.

[klem4]

1. Кол-во элементов меньших С.

Код

uses crt;
const n=5;
var x:array[1..n] of extended;
   i,k:integer;
   c:extended;

Begin
  clrscr;
  write('c=');
  readln(c);
  writeln;
  k:=0;
  for i:=1 to n do
   begin
      readln(x[i]);
      if x[i]<c then
       inc(k);
    end;
   writeln;
   writeln('k=',k);
   readln;
   end.

[murphy]

Преобразовать массив таким образом, чтобы сначала располагались все элементы, отличающие от максимального не более чем на 20 %, а потом– все остальные.

Что то такое

Код

program jjh;
const n=5;
     B: array[1..n] of real = (2.5, -2.0, 1.5, 2.4, -15.45);
var A: array[1..n] of real;
   max, bu: real;
   i, j, k: byte;
function findmax(X:array of real): real;
  var i,n: byte;
      m: real;
  begin
   m:=X[1];
   for i:=0 to high(X)-1 do
     if X[i]>m then m:=X[i];
   findmax:=m;
  end;
function otl (m, r: real): boolean;
  begin
    if (abs(m-r)/m)*100>20 then
       otl:=false
    else
       otl:=true;
  end;

begin
  max:=findmax(B);
  writeln(max:5:2);
  k:=0;
  for i:=1 to n do
    if not(otl(max ,B[i])) then
      begin
         inc(k);
         A[k]:=B[i];
         {bu:=B[i];
         for j :=i downto k do
           B[j]:=b[j-1];
         b[k]:=bu;}
         {B[j]:=B[j]+B[k];
         B[k]:=B[j]-B[k];
         B[j]:=B[j]-B[k];
         inc(k);}
      end;
  for i:=1 to n do
      if otl(max ,B[i]) then
      begin
         inc(k);
         A[k]:=B[i];
      end;
  for i:=1 to n do
    write(A[i]:7:2);
  readln
end.

Не тестировал и не компелировал...

[volvo]

murphy

Не тестировал и не компелировал...

Вот и напрасно - запутался в значениях... Вот твоя программа, немного подправленная:

Код

const
 n=5;
 B: array[1..n] of real =
    (2.5, -2.0, 2.4, 2.4, -15.45);
var
 A: array[1..n] of real;
 max: real;
 i, k: byte;
 bLoop: boolean;

function findmax(X:array of real): real;
 var i,n: byte; m: real;
 begin
   m:=X[0];
   for i:=1 to Pred(high(X)) do
     if X[i]>m then m:=X[i];
   findmax:=m;
 end;

function otl(m, r: real): boolean;
 begin
   otl := ((abs(m-r)/m)*100 <= 20)
 end;

begin
 max:=findmax(B);
 writeln(max:5:2);
 k:=0;

 for bLoop := true downto false do
   for i:=1 to n do
     if otl(max ,B[i]) = bLoop then
       begin
         inc(k); A[k]:=B[i]
       end;

 for i:=1 to n do
   write(A[i]:7:2);
 readln
end.

[murphy]

:p2:

[Guest]

А как вычеслить Пункт 2

Сумму целых частей элементов массива, расположенных после последнего отрицательного элемента.

[volvo]

Проходи по массиву из конца в начало, пока не встретится отрицательный элемент. Допустим это элемент с индексом K... Потом иди опять к концу от элемента K+1 до конца массива, суммируя целые части элементов (их находишь через функцию Int)...

[Guest]

А можно на примере

[volvo]

const
  n = 5;
  a: array[1 .. n] of real =
    (2.5, 2.0, -2.4, -2.4, 15.45);
var
  i, s: integer;

begin
  i := succ(n);
  while (i > 0) and (a[pred(i)] > 0) do dec(i);

  s := 0;
  while i <= n do begin
    s := s + trunc(a[i]); { Trunc будет лучше чем Int }
    inc(i)
  end;
  writeln('s = ', s)

end.

Вообще-то вот так...