Нахождение в массиве максимального элемента среди всех нечетных

@hellcat_1 · Регистрация: 20.01.2014

1)Нахождение в массиве максимального элемента среди всех нечетных элементов и его номера в массиве.
2)Определение суммы элементов от второго отрицательного и до конца.
3)Нахождение произведения всех кратных трем элементов массива.
4)Расположить массив в порядке возрастания.

Добавлено через 1 минуту
помогите с ошибками плиз!

Pascal

program Zadanie3;
uses crt;
  type  mass=array [1..100] of integer;
var i,k:byte;                            {Vvod dannuh}
    a:mass;
    punkt1,a1,n1:string;
    punkt,x,h,code,n:integer;
    s,max:real;
procedure vvod (var a:mass;var n:integer);
begin
 repeat
 write ('Введите количество элементов массива ');
 readln(n1);
 val (n1,n,code);
  if (code<>0) then writeln('Повторите ввод');
  until (code=0);
  for i:=1 to n do
begin
 repeat
  write ('a[',i,']=');
  readln(a1);
  val(a1,a[i],code);
  if (code<>0) then writeln('Повторите ввод');
  until (code=0);
end;
end;
procedure print (var a:mass);                        {pechat dannuh}
begin
 for i:=1 to n do
 write (a[i], ' ');
end;
 
procedure z1;                             {Procedura 1}
begin
clrscr;
 vvod(a,n);
 writeln;
 print(a);
 writeln;
 writeln;
 max:=a[1];
   for i:=2 to n do
   if (i div 2=0)  then max:=a[i];
   if (i mod 2=0) then writeln('net max')
   else writeln('max = ' ,max:5:2);
end;
 
procedure z2;                              {Procedura 2}
begin
 clrscr;
 vvod(a,n);
 writeln;
 print (a);
 writeln;
 writeln;
  h:=0;
  i:=2;
  if (a[i]>=0) and (i<=n) then h:=h+a[i];
  for i:=1 to n do
  inc(h,a[i]);
end;
 
procedure z3;                               {Procedura 3}
begin
 clrscr;
 vvod (a,n);
 writeln;
 print (a);
 writeln;
 writeln;
 s:=1;
  for i:=1 to n do
  if (a[i] mod 3=0)and (a[i]<>0) then s:=s*a[i];
  writeln('s= ',s:3);
end;
 
procedure z4;                                {Procedura 4}
begin
 clrscr;
 vvod (a,n);
 writeln;
 print (a);
 writeln;
 writeln;
  for i:=1 to n+1 do
  if a[i]>a[i+1]
 then
 begin
 x:= a[i];
 a[i]:=a[i+1];
 a[i+1]:=x
 end;
 for i:=1 to n do
 writeln('a[',i,'] = ',a[i]:3);
end;
 
begin                            {punkt menu}
repeat
 clrscr;
  writeln('Введите пункт меню');
   writeln('1-нахождение в массиве максимального элемента среди всех нечётных елементов и его номер в массиве.');
   writeln('2-определение суммы элементов от второго отрицательного и до конца.');
   writeln('3-нахождение произведения всех кратным трём елементов массива.');
   writeln('4-расположить массив в порядке возрастания.');
   readln(punkt1);
   val (punkt1,punkt,code);
    if (code<>0) then writeln('Повторите ввод');
    if (punkt<1) then writeln('Повторите ввод');
    if (punkt>4) then writeln('Повторите ввод');
   case punkt of
   1:z1;
   2:z2;
   3:z3;
   4:z4;
   end;
 until (code=0);
  readkey;
end.

@Alles · 23.01.2014, 23:53

Вот рабочий код, массив на 10 элементов с рандомным заполнением. Каждый пункт реализован в отдельном цикле, хотя можно было бы и сократить:

код

Pascal

var a: array [1..10] of integer;
    i, j, max, max_numb, sum, f, mult: integer;
begin
     write('Array: ');
     for i:=1 to 10 do
         begin
              a[i]:=random(10)-4;
              write(a[i],' ');
         end;
     max:=0;
     max_numb:=0;
     for i:=1 to 10 do
         begin
              if ((i mod 2 <> 0) and (a[i]>max)) then
              begin
                   max:=a[i];
                   max_numb:=i;
              end;
         end;
     writeln;
     write('1) Max = ', max, '; Position = ', max_numb);
      f:=0;
      sum:=0;
      for i:=1 to 10 do
          begin
               if a[i]<0 then
                  inc(f);
               if f=2 then
                  begin
                       f:=i;
                       break;
                  end;
          end;
      for i:=f to 10 do
          sum:=sum+a[i];
      writeln;
      write('2) Sum = ', sum, '; With position = ', f);
      mult:=1;
      for i:=1 to 10 do
          if (a[i] mod 3 = 0) then
             mult:=mult*a[i];
      writeln;
      write('3) Multiple = ', mult);
      for i:=9 downto 1 do
              for j:=1 to i do
                   begin
                        if a[j]>a[j+1] then
                           begin
                                f:=a[j];
                                a[j]:=a[j+1];
                                a[j+1]:=f;
                           end;
                   end;
      writeln;
      write('4) Array: ');
       for i:=1 to 10 do
           write(a[i], ' ');
end.

Опции темы