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

[billchester]

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

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

 

[billchester]

задание на 3 отдельных делится

 

[Vladimir_S]

Вообще-то мы тут не очень любим связываться с выполнением элементарных рутинных упражнений за лентяев. А самостоятельно - совсем никак? Вот помочь, проконсультировать, исправить ошибки - это с удовольствием.

 

[billchester]

помогите пожалуйста.............

 

[Vladimir_S]

помогите пожалуйста.............

Ладно, чего-то я сегодня добрый:

CONST
 N=10;
VAR
 m:ARRAY[1..N] of Real;
 i,j,Imax,Num:byte;
 d,A,B,Max,S:Real;
BEGIN
 Randomize;
 Max:=-100;
 Num:=0;
 S:=0;
 For i:=1 to N do
  begin
   m[i]:=20*Random-10;
   Write(m[i]:8:3);
   If m[i]>Max then
    begin
     Max:=m[i];
     Imax:=i;
    end;
  end;
 writeln;
 Write('A= ');
 ReadLn(A);
 Write('B= ');
 ReadLn(B);
 For i:=1 to N do
  If (m[i]>A) and (m[i]<B) then Inc(Num);
 WriteLn('Number of elements between A and B is ',Num);
 WriteLn('Maximum is the element number ',Imax,' equal to ',m[Imax]:8:3);
 For i:=Imax+1 to N do
  S:=S+m[i];
 WriteLn('Sum of elements from ',Imax+1, ' to ',N,' is ',S:10:3);
 For i:=1 to N-1 do
  For j:=1 to N-i do
   If ABS(m[j])<ABS(m[j+1]) then
    begin
     d:=m[j];
     m[j]:=m[j+1];
     m[j+1]:=d;
    end;
 For i:=1 to N do
  Write(m[i]:8:3);
 readln;
END.

 

[billchester]

спасибо=)

 

[Vladimir_S]

Joker131295, у нас не принято цепляться к чужим темам! Ваше сообщение перенесено в отдельную тему. Эта ТЕМА ЗАКРЫТА.