Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.73/11: Рейтинг темы: голосов - 11, средняя оценка - 4.73
Машулька=))
0 / 0 / 0
Регистрация: 18.12.2011
Сообщений: 9
1

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

18.12.2011, 13:14. Просмотров 2076. Ответов 8
Метки нет (Все метки)

1.Найти максимальный четный элемент в массиве из всех положительных элементов.
2.Вычислить сумму нечетных по значению элементов последней четверти массива.
3.Сортировать элементы третьей четверти массива в порядке возрастания абсолютных значений.
4.Удалить второй нечетный по значению элемент в одномерном массиве разномерностью N.
5.Вставить перед элементом из задачи 4 элемент,равный 0.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
18.12.2011, 13:14
Ответы с готовыми решениями:

Одномерные числовые массивы. Если в массиве максимальный элемент четный, найти количество положительных элементов
Если в массиве максимальный элемент четный, найти количество положительных...

Заменить максимальный элемент массива произведением всех элементов, имеющих четный номер
Помогите пожалуйста Дано: одномерный массив Y(n) ; n=10. Заменить...

Массив: В массиве найти самый большой элемент и вычислить сумму всех элементов столбца и всех элементов строки, которые содержат этот элемент
В двухмерном массиве найти самый большой элемент и вычислить сумму всех...

Если в массиве минимальный элемент четный, найти произведение четных элементов, иначе - сумму нечетных элементов.
Если в массиве минимальный элемент четный, найти произведение четных элементов,...

Если в массиве минимальный элемент четный, найти произведение четных элементов, иначе - сумму нечетных элементов.
Если в массиве минимальный элемент четный, найти произведение четных элементов,...

8
TAVulator
Эксперт Pascal/Delphi
3966 / 1122 / 165
Регистрация: 27.07.2009
Сообщений: 3,492
18.12.2011, 13:16 2
Машулька=)), И что? Где вопрос? Кроме условия задачи ничего не вижу.
0
Машулька=))
0 / 0 / 0
Регистрация: 18.12.2011
Сообщений: 9
18.12.2011, 13:17  [ТС] 3
Уважаемые,помогите пожалуйста решить эти задачи=(
0
Descraty
24 / 24 / 22
Регистрация: 16.12.2011
Сообщений: 50
18.12.2011, 13:31 4
№1
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
{Найти максимальный четный элемент в массиве из всех положительных элементов.}
var
  a: array[1..100] of integer;
  i: integer;
  max: integer;
 
begin
  randomize;
  for i := 1 to 15 do a[i] := random(10) - 5;
  for i := 1 to 15 do
    if (a[i] > 0) and (a[i] mod 2 = 0) then 
      if a[i] > max then max := a[i];
  writeln('Исходный массив: ');      
  for i := 1 to 15 do write(a[i], ' ');
  writeln;
  writeln('Максимальный четный элемент в массиве: ', max);
end.
1
TAVulator
Эксперт Pascal/Delphi
3966 / 1122 / 165
Регистрация: 27.07.2009
Сообщений: 3,492
18.12.2011, 13:33 5
Descraty, задачу можно решить в один цикл
0
Descraty
24 / 24 / 22
Регистрация: 16.12.2011
Сообщений: 50
18.12.2011, 13:34 6
Цитата Сообщение от TAVulator Посмотреть сообщение
Descraty, задачу можно решить в один цикл
Интересно, подскажите как???
0
TAVulator
Эксперт Pascal/Delphi
3966 / 1122 / 165
Регистрация: 27.07.2009
Сообщений: 3,492
18.12.2011, 13:41 7
Цитата Сообщение от Descraty Посмотреть сообщение
Интересно, подскажите как???
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
{Найти максимальный четный элемент в массиве из всех положительных элементов.}
var
  a: array[1..100] of integer;
  i: integer;
  max: integer;
 
begin
  randomize;
  writeln('Исходный массив: ');
  for i := 1 to 15 do
    begin
      a[i] := random(10) - 5;
      if (a[i] > 0) and (a[i] mod 2 = 0) then
        if a[i] > max then max := a[i];
      write(a[i], ' ');
    end;
  writeln;
  writeln('Максимальный четный элемент в массиве: ', max);
end.
1
Descraty
24 / 24 / 22
Регистрация: 16.12.2011
Сообщений: 50
18.12.2011, 14:47 8
Спасибо, огромное

№2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
{Вычислить сумму нечетных по значению элементов последней четверти массива.}
var
  a: array[1..100] of integer;
  i: integer;
  n: integer;
  sum: integer;
  buf: integer;
 
begin
  writeln('Введите количество элементов массива: ');
  readln(n);
  writeln('Введите массив: ');
  for i := 1 to n do readln(a[i]);
  buf := (n div 4) * 3;
  for i := buf to n do
    if (a[i] < 0) and (a[i] mod 2 <> 0) then sum := sum + a[i];
  writeln('Сумма нечетных по значению элементов последней четверти массива равна: ', sum);
end.
Добавлено через 31 минуту
№5
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
{Вставить перед элементом из задачи 4 элемент,равный 0}
const
  x = 0;
 
var
  a: array[1..100] of integer;
  i, j: integer;
  n: integer;
  buf: integer;
 
begin
  randomize;
  writeln('Введите количество элементов массива: ');
  readln(n);
  for i := 1 to n do a[i] := random(10) - 5;
  writeln('Исходный массив: ');
  for i := 1 to n do write(a[i], ' ');
  writeln;
  for i := 1 to n do
    if (a[i] mod 2<> 0) then begin
      buf := i;
      for j:=buf+1 to n do
        if (a[i] mod 2<>0) then 
        begin
          buf:=j;
          break;
        end;
      break;
    end;
  for i := n + 1 downto buf + 1 do
    a[i] := a[i - 1];
  a[buf]:=x;
  writeln('Преобразованный массив: ');
  for i:=1 to n+1 do write(a[i],' ');
end.
Добавлено через 31 минуту
№4 я бы сделал так
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
{Удалить второй нечетный по значению элемент в одномерном массиве разномерностью N}
var
  a: array[1..100] of integer;
  i, j: integer;
  n, m: integer;
  buf: integer;
 
begin
  randomize;
  writeln('Введите количество элементов массива: ');
  readln(n);
  //Заполняем массив
  for i := 1 to n do a[i] := random(10) - 5;
  //Выводим исходный массив
  for i := 1 to n do write(a[i], ' ');
  writeln;
  //Ищем второй нечётный по значению элемент
  for i := 1 to n do
    if (a[i] mod 2 <> 0) then
    begin
      buf := i;
      for j := buf + 1 to n do 
        if (a[j] mod 2 <> 0) then 
        begin
          buf := j;
          break;
        end;
      break;
    end;  
  for i := buf To n - 1 Do
    a[i] := a[i + 1]; {i-му элементу присваиваем значение (i+1)-го}
  a[n] := 0;{последний элемент равен 0}
  writeln('Преобразованный массив: ');
  for i := 1 to n-1 do write(a[i], ' ');
end.
1
Машулька=))
0 / 0 / 0
Регистрация: 18.12.2011
Сообщений: 9
18.12.2011, 16:04  [ТС] 9
Я очень благодарна,что вы мне помогли)))
0
18.12.2011, 16:04
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
18.12.2011, 16:04

Если в массиве минимальный элемент четный, найти производные четных элементов, иначе - сумму нечетных элементов.
Нужна помощь в написании программы Если в массиве минимальный элемент четный,...

Замена всех элементов, кратных 11 на максимальный элемент в массиве
Замена всех элементов, кратных 11 на максимальный элемент в массиве. За раннее...

В массиве B(n), найти сумму всех положительных и произведение всех отрицательных элементов.
В массиве B(n), найти сумму всех положительных и произведение всех...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru