вычислить количество элементов массива, лежащих в диапазоне от А до В

[Gigatrest]

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

2. Осуществить циклический сдвиг элементов прямоугольной матрицы на N элементов вправо или вниз (в зависимости от введенного режима), N может быть больше количества элементов в строке или столбце

[alex_fcsm]

uses crt;
const n=10;
var i,j,max:integer;
    sum,a,b,temp:real;
    x:array[1..n] of real;
    
begin
clrscr;
for i:=1 to n do
 begin
  x[i]:=random(40)-(random(1000)/(random(10)+1));
  write(x[i]:7:1);
 end;
writeln;
readln(a,b);
max:=0;
for i:=1 to n do
 if (x[i]>=a) and (x[i]<=b) then inc(max);
writeln('Всего ',max, ' элементов');
sum:=0;max:=1;
for i:=2 to n do
 begin
 if x[i]>x[max] then begin
                   max:=i;
                   sum:=0;
                  end
    else sum:=sum+x[i];
 end;
 
writeln('Сумма после макс:',sum:7:1);
for i:=2 to n do
 for j:=n downto i do
  if abs(x[j-1])>abs(x[j]) then begin
    temp:=x[j];
    x[j]:=x[j-1];
    x[j-1]:=temp;
   end;
for i:=1 to n do
 write(x[i]:7:1);
 readln;
end.

[Gigatrest]

спасибо огромное!!!!
правда есть небольшая проблемка... в пункте 1) он должен выводить просто колличество элементов, лежашить от а до б, а выводит все время 0...

[alex_fcsm]

Сообщение от Gigatrest

спасибо огромное!!!!
правда есть небольшая проблемка... в пункте 1) он должен выводить просто колличество элементов, лежашить от а до б, а выводит все время 0...

Так вы посмотрите какие элементы - такой и диапазон вводите. Попробуйте от -100 до 100

[Gigatrest]

прошу прощения, я не правильно поняла задание
еще раз огромное спасибо!!!

[alex_fcsm]

uses crt;
var f:text;
    s,obr,sub:string;
    i,n,j:integer;
    a:array[1..100] of string;
    q:set of char;
    find:boolean;
    
begin
clrscr;
find:=false;
n:=0;
writeln('Input');
readln(obr);
j:=0;
assign(f,'c:\1.dat');
reset(f);
writeln('Text');
while not(eof(f)) do
 begin
  readln(f,s);
  i:=0;
repeat
inc(i);
if (s[i]=' ')and(s[i+1]<>' ') then begin
                   inc(n);
                   a[n]:=sub;
                   if a[n]=obr then TextColor(5);
                   write(a[n]);
                   TextColor(0);
                   write(s[i]);
                   sub:='';
                   end
else if not(s[i] in q) then sub:=sub+s[i] else write(s[i]);
until i=length(s);
if sub<>'' then begin
inc(n);
a[n]:=sub;
end;
writeln;
end;
close(f);
if j<>0 then writeln(j);
readln;
end.

[Gigatrest]

спасибо) только не могли бы объяснить как она работает))

[Gigatrest]

очень нужны тексты остальных программ!!! в понедельник - экзамен!

[capta1n]

program capta1n;
uses crt;
label 1;
const
 m = 5;
 v = 3;
type
 x = 1..m;
 y = 1..v;
 item = array [x,y] of integer;
var
 a : item;
 i : x;
 k : y;
 n,l : byte;
 j : integer;
 c : integer;
begin

  clrscr;
  randomize;
  writeln ('Vasha matrica: ');
  for i:=1 to m do
  begin
    for k:=1 to v do
    begin
      a[i,k]:=random(10);
      write (a[i,k],'|')
    end;
    writeln
  end;
  writeln;

  write ('Vvedite N= '); readln (n);
1:write ('Vvedite rejim sdviga: vpravo - 1; vniz - 2   '); readln(j);

  case j of
  1 : begin
        n:=n mod v;
        for i:=1 to m do
         for l:=1 to n do
         begin
           c:=a[i,v];
           for k:=v downto 2 do a[i,k]:=a[i,k-1];
           a[i,1]:=c
         end
      end;
  2 : begin
        n:=n mod m;
        for k:=1 to v do
         for l:=1 to n do
         begin
           c:=a[m,k];
           for i:=m downto 2 do a[i,k]:=a[i-1,k];
           a[1,k]:=c
         end
      end
 else begin
        writeln ('Neverniy vvod!');
        goto 1
      end

  end;


  writeln ('Noviy massiv: ');
  for i:=1 to m do
  begin
    for k:=1 to v do write (a[i,k],'|');
    writeln
  end;

  readln

end.

а отзыв не мог бы отставить?

[Gigatrest]

спасибо!!!