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

[Aleksandr litvinch]

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

program Laba_5_2;
uses crt ;
var  a:array [1..100] of integer;
 b:array [1..50] of integer ;
n,i,j,max:integer;

 
 begin
    write('enter n=');
    readln(n);

     for i:=1 to n do
       begin
       a[i]:=random( 100);
       end;

     for i:=1 to n do
      write (a[i],'  ');

      max:=a[1];
       for i:=2 to n do

         if a[i]>max
           then
          max:=a[i];

          
          i:=j;

           
               writeln;
           writeln ('max =',max);


           

               writeln('MAssiv B');
               
               
               for i:=1 to j do
               b[i]:= a[2*i]*max;
               
               
               for i:=1 to j do
               write ( b[i],'  ');
           
           end.

[Stilet]

               for i:=1 to n do begin
 if (i<j)and((i mod 2)=0) then  b[i]:= a[2*i]*max else b[i]:=a[i];
               write ( b[i],'  ');
end;

Так лучше?

[Aleksandr litvinch]

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

               for i:=1 to n do begin
 if (i<j)and((i mod 2)=0) then  b[i]:= a[2*i]*max else b[i]:=a[i];
               write ( b[i],'  ');
end;

Так лучше?

выводит элементы массива А , а нужно чтоб вывело совсем новые элементы массива Б ,которые являются элементами массива А уножеными на максимальное число

[Stilet]

Значит условие не выполняется. Видимо j изначально равно нулю. Бери отладчик и выясняй. Впрочем проблема тут: i:=j; Поменяй местами.

[Aleksandr litvinch]

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

Значит условие не выполняется. Видимо j изначально равно нулю. Бери отладчик и выясняй. Впрочем проблема тут: i:=j; Поменяй местами.

да проблема действительно была в этом , и теперь выводяться числа все правильно , вот только те которые не участвуют в цикле ( тоесть те у которых не парный индекс ) становяться нулями

[GetMax]

Ошибка очевидно в поиске максимума

for i:=2 to n do

         if a[i]>max
           then
          max:=a[i];
          i:=j; //тут надо j := i

Расставляй правильно Begin End или прерывай цикл с помощью break

[Aleksandr litvinch]

Теперь все выводиться но он делает лишнии итерации program Laba_5_2;

uses crt ;
var  a:array [1..100] of integer;
 b:array [1..50] of integer ;
n,i,j,max:integer;

 
 begin
    write('enter n=');
    readln(n);

     for i:=1 to n do
       begin
       a[i]:=random( 100);
       end;

     for i:=1 to n do
      write (a[i],'  ');

      max:=a[1];
       for i:=2 to n do

         if a[i]>max
           then
           begin
          max:=a[i];
          j:=i;
          end;
           
               writeln;
           writeln ('max =',max);
          

               writeln('MAssiv B');
               

               for i:=1 to j  do
               b[i]:= a[i*2]*max;
              
               
                 for i:=1 to j do
               write ( b[i],'  ');
           end.

    for i:=1 to j  do
               b[i]:= a[i*2]*max;

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