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

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

24.12.2013, 17:25. Просмотров 403. Ответов 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
Ответы с готовыми решениями:

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

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

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

“Сожмите” массив, выбросив из него каждый второй элемент
Дан целочисленный массив с количеством элементов 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
Сообщений: 52
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), А и В. сформулировать и вывести целочисленный массив...


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

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

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