Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
alexeu121
0 / 0 / 1
Регистрация: 24.12.2013
Сообщений: 47
#1

Сожмите массив, выбросив из него каждый второй элемент - Pascal ABC

24.12.2013, 17:25. Просмотров 373. Ответов 2
Метки нет (Все метки)

Перестановка элементов массива.
1. Дан целочисленный массив с количеством элементов n. “Сожмите” массив, выбросив из него каждый второй элемент. Дополнительный массив не использовать.
Вот что то такое получилось, но не совсем рабочее, помогите)
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
var
i,n:integer;
a:array[1..20]of integer;
begin
writeln('Введите размер массива:');
read(n);
writeln('Введите элементы массива:');
for i:=1 to n do
read(a[i]);
for i:=1 to n do
if ((a[i])>(a[i-1])) and ((a[i])<(a[i+1])) then
begin
i:=i+1;
end
else
writeln(a[i]);
end.

Последовательности.
2. Дано целое число N(>2) и набор из N вещественных чисел. Набор называется пилообразным , если каждый его внутренний элемент либо больше, либо меньше обоих своих соседей(то есть является "зубцом"). Если данный набор является пилообразным, то вывести 0; в противном случае вывести номер первого элемента, не являющегося зубцом.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
var i,k,n:integer;
a:array[1..100] of integer;
begin
writeln('Введите n>2');
readln(n);
writeln('Введите a[i]:');
for i:=1 to n do readln(a[i]);
for i:=3 to n-1 do
begin
if (a[i]>a[i+1])and(a[i]>a[i-1]) then k:=k+1;
if (a[i]<a[i+1])and(a[i]<a[i-1]) then k:=k+1
else
begin
writeln('Ответ:',a[i]);
break;
end;
end;
if k=n then writeln('Ответ:0');
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
24.12.2013, 17:25
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Сожмите массив, выбросив из него каждый второй элемент (Pascal ABC):

«Сожмите» массив, выбросив из него каждый второй элемент
Дан целочисленный массив с количеством элементов n. «Сожмите» массив, выбросив из него каждый второй элемент.

Сжать массив, выбросив из него каждый второй элемент
сжать массив, выбросив из него каждый второй элемент

"Сжать" массив, "выбросив" каждый второй его элемент
&quot;Сожмите&quot; массив, &quot;выбросив&quot; каждый второй его элемент (дополнительные массивы использовать не разрешается). (Pascal...

“Сожмите” массив, выбросив из него каждый второй элемент
Дан целочисленный массив с количеством элементов n. “Сожмите” массив, выбросив из него каждый второй элемент. Дополнительный массив не...

Дан целочисленный массив с количеством элементов n. "Сожмите" массив, выбросив из него каждый второй элемент
Дан целочисленный массив с количеством элементов n. &quot;Сожмите&quot; массив, выбросив из него каждый второй элемент. Примечание. Дополнительный...

Выбрать из заданного массива каждый второй элемент в другой массив
Выбрать из заданного массива каждый второй элемент в другой массив.

2
mellowass
89 / 69 / 82
Регистрация: 18.11.2013
Сообщений: 113
24.12.2013, 17:48 #2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
uses crt;
var
i,n:integer;
a:array[1..20]of integer;
c:boolean;
begin
c:=false;
writeln('Ââåäèòå Г°Г*çìåð Г¬Г*Г±Г±ГЁГўГ*:');
read(n);
writeln('Ââåäèòå ýëåìåГ*ГІГ» Г¬Г*Г±Г±ГЁГўГ*:');
for i:=1 to n do
read(a[i]);
for i:=1 to n do
begin
if(c=false) then c:=true else begin
c:=false;
continue;
end;
write(a[i],' ');
end;
end.
1
alexeu121
0 / 0 / 1
Регистрация: 24.12.2013
Сообщений: 47
24.12.2013, 21:07  [ТС] #3
mellowass, Спасибо большое, а что насчет второй задачи? Никак не могу понять как вывести это все.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
24.12.2013, 21:07
Привет! Вот еще темы с решениями:

Массив: Получить массив из исходного, выбросив из него элементы равные максимальному
Помогите пожалуйста.8 задание Одна задача - одна тема

Вывести массив размера N, первый элемент которого равен А, второй В, а каждый предыдущий элемент равен сумме всех предыдущих
Данны целые числа N(&lt;2), А и В. сформулировать и вывести целочисленный массив размера N, первый элемент которого равен А, второй В, а...

Сжать массив, выбросив из него нулевые элементы
Люди пожалуйста помогите срочно. Мне нужно до завтра решить задачу в Паскале. Задача. Задан массив, содержащий несколько нулевых...

Сжать массив, выбросив из него все нулевые элементы
Помогите идиоту сжать заданный массив, выбросив из него все нулевые элементы=)


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

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

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