0 / 0 / 0
Регистрация: 20.01.2014
Сообщений: 13
1

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

22.01.2014, 22:46. Показов 717. Ответов 1
Метки нет (Все метки)

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

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

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
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.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
22.01.2014, 22:46
Ответы с готовыми решениями:

Нахождение максимального значения в массиве среди всех элементов после первого отрицательного
Задание :Нахождение максимального значения в массиве среди всех элементов после первого...

Нахождение в массиве максимального среди отрицательных элементов
Составить программу нахождения в массиве Y(N),N&lt;10 максимального среди отрицательных элементов и...

Нахождение максимального элемента в массиве и его индекс (элемента)
Доброго времени суток. Вот исходный код поиска максимального элемента массива: ...

Нахождение в массиве минимального элемента среди положительных и его номера в массиве
• Нахождение в массиве минимального элемента среди положительных и его номера в массиве. •...

1
45 / 45 / 44
Регистрация: 10.05.2012
Сообщений: 76
23.01.2014, 23:53 2
Вот рабочий код, массив на 10 элементов с рандомным заполнением. Каждый пункт реализован в отдельном цикле, хотя можно было бы и сократить:
код
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
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.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
23.01.2014, 23:53
Помогаю со студенческими работами здесь

Найти индекс максимального элемента среди отрицательных нечетных элементов массива T(4,5)
Люди добрые помогите решить задачу

Нахождение максимального элемента в массиве.
Решите задачку пожалуйста. Найдите максимальный элемент в массиве.

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

Нахождение максимального элемента среди элементов, лежащих выше побочной диагонали матрицы
Дана матрица A размером 7 на 7. Составить программу нахождения максимального элемента среди...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru