Oдномерный массив Pascal

[be-be]

Помогите пожалуйста, последняя надежда на вас...

Определить в одномерном массиве элемент и индекс, у которого четный индекс и который максимальный отрицательный (чётный индекс).

[as1212]

Вот лови код

PROGRAM lab5;
  USES CRT;
  CONST N = 6;
  TYPE MAS=ARRAY[1..N] OF INTEGER;
VAR C:MAS; MAX,IMAX,I:INTEGER; P:CHAR;
BEGIN  CLRSCR;
  WRITELN(' ':20,' ВВЕДИТЕ ',N,' ЧИСЕЛ');
  FOR I:=1 TO N DO READ(C[I]);
  MAX:=-32657;  FOR I:=1 TO N DO
  IF (C[I] < 0) AND (C[I]>MAX) AND (I mod 2 = 0) THEN
  BEGIN MAX:=C[I]; IMAX:=I; END ;
  WRITELN(' ':10,' максимальный отрицательный элемент ',MAX:4);
  WRITELN;
  WRITELN(' ':10,'его индекс ':5,IMAX:2);
  P:=READKEY
END.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[be-be]

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

[be-be]

Не мог бы кто нибудь объяснить мне - Почему
1) WRITELN(' ':20,' ВВЕДИТЕ ',N,' ЧИСЕЛ'); Почему тут 20 именно, что это значит?
2) FOR I:=1 TO N DO READ(C[I]); Что значит C[I]?
3) MAX:=-32657; FOR I:=1 TO N DO Почему тут MAX:=-32657?
4)WRITELN(' ':10,' максимальный отрицательный элемент ',MAX:4); Почему :10?
5) P:=READKEY - как это понять, что зачит Р?

[Serge_Bliznykov]

>1) WRITELN(' ':20,' ВВЕДИТЕ ',N,' ЧИСЕЛ'); Почему тут 20 именно, что это значит?
вывести сначала 20 пробелов. потом текст. Почему именно 20? Автор программы считает, что так будет "красивее" выглядеть.. Можете смелов выкинуть ' ':20, - на работу программы это не влияет.

>2) FOR I:=1 TO N DO READ(C[I]); Что значит C[I]?
а может Вам стоит почитать хоть какую-нибудь литературу по языку Паскаль?!
Что такое массивы, как они задаются, как обратиться к опередёлённому элементу массива?! ну и что такое циклы...

здесь C - это целочисленный массив от 1 до 6
for i:=1 to N - цикл от 1 до 6 (N - константа равная 6)
Read - прочитать
C[i] - i-й (очередной) элемент массива.

>3) MAX:=-32657; FOR I:=1 TO N DO Почему тут MAX:=-32657?
здесь это берётся как минимально возможное целое значение.
Посмотрите классический алгоритм поиска минимального/максимального значения.
кстати, берётся ошибочно. ибо минимальное целое значение равно -32767
впрочем, намного лучше написать так:

  Max := -MaxInt;

>4)WRITELN(' ':10,' максимальный отрицательный элемент ',MAX:4); Почему :10?
смотри ответ на вопрос 1)

>5) P:=READKEY - как это понять, что зачит Р?
присвоить значение (символ) нажатой клавиши в переменную P
в данной задаче это абсолютно лишнее.
достаточно написать просто:

 readkey;

а переменную P вообще выкинуть (из описания переменных)

[be-be]

Подскажите, пожалуйсто, как тогда сделать так, что бы если нет отрицательных элементов было writeln (' отрицательных элементов нет ')??

Если допустим х=1 и dх=0.1 то тогда все элементы позтинвые, поэтому надо что бы было сообщение что отрицательных элементов нет.

 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);

       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);

      goto MENU;

[be-be]

Не кто не может объяснить как это сделать?

[Serge_Bliznykov]

Элементарно же!

....
      maxv := -MaxInt;
      imax := -1; {признак того, что мы ещё ничего не нашли!}
       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;

      if imax = -1 then WriteLn('подходящих отрицательных элементов нет ')
      else begin
          writeln(' максимальный отрицательнвй элемент:', maxv:10:5);
          writeln('  его индекс :', imax:5);
      end;