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

В одномерном массиве все четные элементы заменить пятеркой

16.03.2009, 00:09. Показов 1120. Ответов 2
Метки нет (Все метки)

Выше есть похожая задачка, но я никак не могу въехать как свою доделать(((

Задача: В одномерном массиве А, состоящем из 12 целых чисел, все четные элементы заменить пятеркой.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
16.03.2009, 00:09
Ответы с готовыми решениями:

В первом одномерном массиве найти все нечетные элементы, во втором одномерном массиве найти все четные элементы и из них сформировать массив
1. Ввести одномерный массив используя генератор случайных чисел. Одномерный массив может быть...

В одномерном массиве вывести все четные элементы, кратные 4 и 5
Помогите, пожалуйста! Буду благодарна за любую помощь в решении!

В одномерном массиве найти максимальные элементы и все элементы равные максимальному заменить на 0.
в одномерном массиве А состоящем из N элементов найти максимальные элементы и все элементы равные...

В одномерном массиве все положительные четные элементы заменить пятеркой
Помогите пожалуйста решить задачу в делфи. вот условие:В одномерном массиве А состоящем из 12...

__________________
2
3064 / 724 / 69
Регистрация: 24.09.2008
Сообщений: 1,531
16.03.2009, 00:45 2
Лучший ответ Сообщение было отмечено Karamelka как решение

Решение

Держите, смешная задача, можно было-бы и самому решить...
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
Program xa;
var
  a:array[1..12] of integer;
  i,n:integer;
begin
  repeat
   Writeln('BBedute n');
   Write('n=');
   readln(N);
  until (n>0) and (n<13);
  Writeln('BBedute cam MaccuB');
  for i:=1 to n do
  begin
    Write('A[' ,i, ']=');
    readln(a[i])
  end;
  Writeln;
  Writeln('maccuB do u3meHeHUu');
  for i:=1 to n do
    Write(a[i], ' ');
  for i:=1 to n do
    if a[i] mod 2 = 0 then
      a[i]:=5;
  Writeln;
  Writeln('maccuB nocle u3meHeHUu');
  for i:=1 to n do
    Write(a[i], ' ');
  readln
end.
1
0 / 0 / 0
Регистрация: 16.03.2009
Сообщений: 6
16.03.2009, 00:56  [ТС] 3
lexus_ilia, Спасибо огромное!!!! Очень выручили!!!!
Блондинка и информатика - две вещи несовместимые))))))))
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
16.03.2009, 00:56

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

В одномерном массиве все четные элементы заменить на их квадраты, а нечетные умножить на 2
В одномерном массиве все четные элементы заменить на их квадраты, а нечетные умножить на 2.

В одномерном числовом массиве D все четные элементы заменить нулями, остальные - максимальным элементом
В одномерном числовом массиве D все четные элементы заменить нулями, остальные - максимальным...

Удалить все четные элементы в одномерном массиве
Помогите решать задачу &quot;Удалить все четные элементы в одномерном массиве&quot; буду благодарен

Отсортировать в одномерном массиве все четные элементы по возрастанию.
Дан одномерный массив. Отсортировать все четные элементы по возрастанию, нечетные оставить без...


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

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

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