массив + генерация случайных чисел

[be-be]

уже сломала голову над этим...
Попробую объяснить суть задания.

Я написала свой генератор случайных чисел
Вот он:

program massiv1;
 
 const   num=20;
 var
    oper,
    i,j :  integer;
    ms: array [1..num] of real;
    x, dx :real;
    imax : integer;
    maxv: real;
    label  MENU, SOLVE, КОНЕЦ;
 begin
 MENU:
    x:=0.27; dx:=0.345;
    writeln;
    writeln( 'Программа для вычисления массива');
    writeln( ' 3333 - закончить');
    writeln( ' 1111 – решать стандартной порог. величиой ');
    writeln( ' Любое другое число – решать своими порог. величиами');
    read( oper);
    if oper=3333 then goto КОНЕЦ;
    if oper=1111 then goto SOLVE;
    writeln( ' Введите два действительных чисел, они будут определять значения элемента массива');
    read(x, dx);
SOLVE:
   for i:=1 to num do
      begin
      ms[i]:=10*sin(x);
      x:=x+dx;
      end;          writeln;
   for i:=1 to num do
     begin
      write( '      "',i:2, '"', ms[i]:10:5)
     end;
     writeln;   writeln(' Чтобы продолжить введите любое число ');
     read(j);

Теперь когда выдаются эти числа, мне из них надо найти максимальный отрицательный элемент с чётным индексом. А если в этих случайных элементов нет отрицательных, то тогда надо что бы было сообщение об этом, т.е., writeln ('отрицательных элементов с четным индексом нет!').

Вот код который ищет максимальный отрицательный элемент с чётным индексом - как мне его переделать, чтобы если в случайных числах отрицательных элементов нет - программа выдовала бы, что "отрицательных элементов с четным индексом нет"???????????

maxv:= -MaxInt;
       for i:=1 to num do
       if (ms[i]<0) and (ms[i]>maxv) and (i mod 2 = 0) then
         begin
           maxv:= ms[i];
           imax:=i;
       end;
   writeln(' максимальный отрицательнвй элемент:', maxv:10:5);
   writeln('  его индекс :', imax:5);

[Serge_Bliznykov]

ответил Вам в вашей прошлой теме!


Эту тему закрываю!