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

Найти и удалить те элементы массива, первая цифра которых нечетная, а само число четное

20.03.2014, 16:53. Показов 1222. Ответов 1
Метки нет (Все метки)

Дан одномерный массив в n элементов. Найти и удалить те элементы массива, первая цифра которых нечетная, а само число четное.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
20.03.2014, 16:53
Ответы с готовыми решениями:

Удалить из массива все элементы, в которых первая цифра нечетная
Надеюсь кто-то сможет помочь. Дан массив целых чисел (n=15), заполненный случайным образом числами...

Удалить из него все элементы, в которых последняя цифра нечетная, а само число делится на удвоенную последнюю цифру.
Здравствуйте, помогите с задачей, не могу разобраться. Дан массив целых чисел (n = 14),...

Удалить из массива элементы, где последняя цифра нечетная, а само число делится на удвоенную последнюю цифру
Дан массив целых чисел (n=14), заполненный случайным образом числами из промежутка . −...

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

1
18 / 18 / 39
Регистрация: 22.03.2014
Сообщений: 79
23.03.2014, 10:18 2
Лучший ответ Сообщение было отмечено BARSiK_ как решение

Решение

Вот программа которая удаляет все элементы, первая цифра которай нечетная и само число четная
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
uses crt;
var a:array [1..100] of integer;
i,j,n,k,c:integer;
begin n:=10;
for i:=1 to n do a[i]:=Random(50);
for i:=1 to n do Write(a[i]:4);
i:=1;
while i<=n do
begin
if (a[i]>=10) then c:=a[i] div 10;
if (c mod 2=1)and(a[i] mod 2=0) then begin
 for k:=i to n-1 do a[k]:=a[k+1];
 n:=n-1; end else i:=i+1;
end;
Writeln;
for i:=1 to n do Write(a[i]:4);
end.
Добавлено через 5 минут
else забыл
Pascal
1
2
if (a[i]>=10) then c:=a[i] div 10
else c:=a[i];
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
23.03.2014, 10:18

Удалить из массива все элементы, в которых последняя цифра четная, а само число делится на нее
Дан массив целых чисел из n элементов, заполненный случайным образом числами из промежутка . ...

Удалить из массива все элементы, в которых последняя цифра четная, а само число делится на нее
Дан массив целых чисел n=12 ,заполненный случайным образом числами из промежутка (-10,60) удалить...

Удалить из массива все элементы, в которых последняя цифра чётная, а само число делится на неё
Дан одномерный массив целых чисел, заполненный случайным образом числами из промежутка ....

Удалить из массива все элементы, в которых последняя цифра четная, а само число делится на нее
Дан массив целых чисел (n=12), заполненный случайным образом числами из промежутка . Удалить из...


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

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

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