Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.95/22: Рейтинг темы: голосов - 22, средняя оценка - 4.95
0 / 0 / 0
Регистрация: 15.03.2012
Сообщений: 20
1

Массив. Увеличить все четные числа на исходное значение первого четного числа

16.03.2012, 01:06. Показов 4116. Ответов 6
Метки нет (Все метки)

помогите, пожалуйста, решить задачу. дан целочисленный массив размера N. увеличить все четные числа содержащиеся в массиве на исходное значение 1-ого четного числа. если четные числа в массиве отсутствуют, то оставить массив без изменений.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
16.03.2012, 01:06
Ответы с готовыми решениями:

Увеличить все нечетные числа, содержащиеся в массиве, на исходное значение последнего нечетного числа
Дан целочисленный массив размера N. Увеличить все нечетные числа, содержащиеся в массиве, на...

Увеличить все четные числа, содержащиеся в массиве, на исходное значение первого четного
Здраствуйте ... нужна срочная помощь , завтра контрольная и нужно сдать пару заданий . Кому не...

Увеличить все чётные числа массива на значение первого чётного числа
Дан целочисленный массив размерности N. Увеличить все четные числа, содержащиеся в массиве, на...

Дано целочисленный массив размера N. Увеличить все четные числа, содержащиеся в массиве
Дано целочисленный массив размера N. Увеличить все четные числа, содержащиеся в массиве. Если...

6
6242 / 3543 / 898
Регистрация: 28.10.2010
Сообщений: 5,926
16.03.2012, 07:28 2
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
const
  size = 10;
var
  a: array[1..size] of integer;
  even: integer;
  flag: boolean;
  i: integer;
begin
  randomize;
  for i := 1 to size do
  begin
    a[i] := random(10);
    write(a[i], ' ');
  end;
  flag := false;
  for i := 1 to size do
    if not odd(a[i]) then
    begin
      even := a[i];
      flag := true;
      break;
    end;
  writeln;
  if flag then
  begin
    for i := 1 to size do
    begin
      if not odd(a[i]) then
        a[i] := a[i] * even;
      write(a[i], ' ');
    end;
    writeln;
  end
  else
    writeln('В массиве нет четных чисел');
end.
1
0 / 0 / 0
Регистрация: 15.03.2012
Сообщений: 20
16.03.2012, 09:19  [ТС] 3
спасибо. а объясни, пожалуйста, почему здесь указывается размер (это во 2 строчке), еще что такое flag и в 21 строке break - это оператор какой-то, для чего он?
0
Почетный модератор
64086 / 47495 / 32734
Регистрация: 18.05.2008
Сообщений: 115,182
16.03.2012, 09:51 4
Цитата Сообщение от Кедышка Посмотреть сообщение
почему здесь указывается размер (это во 2 строчке),
Просто размер массива задан константой, можете это убрать и задать его с клавиатуры.
Цитата Сообщение от Кедышка Посмотреть сообщение
что такое flag
переменная логического типа, принимает значение true если в массиве есть нечетное число и false в противном случае.
Цитата Сообщение от Кедышка Посмотреть сообщение
строке break - это оператор какой-то, для чего он?
Это оператор, прерывающий выполнение цикла, если то что искали уже нашли.
1
0 / 0 / 0
Регистрация: 15.03.2012
Сообщений: 20
16.03.2012, 10:19  [ТС] 5
a even что тогда?
0
Почетный модератор
64086 / 47495 / 32734
Регистрация: 18.05.2008
Сообщений: 115,182
16.03.2012, 10:23 6
Так это значение найденного первого нечетного числа.
Кстати по условию нужно не умножить, а увеличить на ..
поэтому поправьте
Pascal
1
2
if not odd(a[i]) then
        a[i] := a[i] + even;
И вообще пишите сами, тогда точно будете знать что означает та или иная переменная.
1
0 / 0 / 0
Регистрация: 15.03.2012
Сообщений: 20
16.03.2012, 10:50  [ТС] 7
спасибо.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
16.03.2012, 10:50

Все числа, имеющие четные цифры на четных позициях, увеличить в k раз
Дан одномерный числовой массив. Все числа, имеющие четные цифры на четных позициях, увеличить в k...

Если квадратный корень из второго числа меньше первого числа, то увеличить второе число в пять раз
3)2. Даны два числа. Если квадратный корень из второго числа меньше первого числа, то увеличить...

Если квадратный корень из второго числа меньше первого числа, то увеличить второе число в пять раз
Если квадратный корень из второго числа меньше первого числа, то увеличить второе число в пять раз....

Вывести все четные числа начиная с числа N и до числа M
помогите кто чем может: while вывести все четные числа начиная с числа N и до числа M. числа...


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

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

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