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

Преобразовать массив, уменьшив каждую его серию на один элемент.

03.11.2011, 10:53. Просмотров 879. Ответов 6
Метки нет (Все метки)

прошу помогите пожалуйста срочно надо
array120: Дан целочисленный массив размера N, содержащий по крайней мере одну серию, длина которой больше 1. Преобразовать массив, уменьшив каждую его серию на один элемент.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
03.11.2011, 10:53
Ответы с готовыми решениями:

Преобразовать массив, увеличив1|уменьшив2 каждую его серию на один элемент.
Дан целочисленный массив размера N. Преобразовать массив, увеличив1|уменьшив2...

Заменить каждую серию массива, длина которой больше L, на один элемент с нулевым значением.
Ребят, кто может мне безвозмездно решить вот эту задачку, если конечно вас не...

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

Изменить массив, уменьшив его нечетные элементы на значение первого четного элемента
Описать динамический массив. Реализовать 2 способа инициализации массива...

Преобразовать массив, увеличив каждый его элемент на исходное значение элемента AK.
Array65. Дан массив A размера N и целое число K (1 <= K <= N). Преобразовать...

6
Puporev
Модератор
54590 / 42094 / 29064
Регистрация: 18.05.2008
Сообщений: 99,320
03.11.2011, 11:32 2
Цитата Сообщение от сара93 Посмотреть сообщение
содержащий по крайней мере одну серию
Серию чего?
0
сара93
0 / 0 / 0
Регистрация: 01.11.2011
Сообщений: 29
03.11.2011, 12:18  [ТС] 3
одномерный массив. серии целых чисел
0
Puporev
Модератор
54590 / 42094 / 29064
Регистрация: 18.05.2008
Сообщений: 99,320
03.11.2011, 12:43 4
сара93, Вы хоть чуть думаете, когда пишете? У Вас весь массив из целых чисел, прочитайте внимательно у себя задание.

Добавлено через 6 минут
Например бывают серии подряд идущих
- одинаковых чисел
5 1 1 1 2 2 3 серии 1 1 1 и 2 2
- положительных чисел
-5 4 6 -9 -10 серия 4 6
и так далее, признак должен быть.

Добавлено через 6 минут
Вот пример для серий одинаковых элементов, поставите свое условие
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
37
38
39
40
41
42
43
44
uses crt;
var a:array[1..100] of integer;
    n,i,j,k,p:byte;
begin
repeat
write('Размер последовательности от 2 до 100 n=');
read(n);
until n in [2..100];
writeln('Введите элементы массива:');
for i:=1 to n do
 begin
  write('a[',i,']=');
  read(a[i]);
 end;
clrscr;
writeln('Исходный массив:');
for i:=1 to n do
write(a[i],' ');
writeln;
i:=2;
while i<=n do
if a[i]=a[i-1] then
  begin
   j:=i;k:=1;
   while (a[j]=a[j-1])and(j<n) do
    begin
     j:=j+1;
     k:=k+1;
    end;
   if j>n then n:=n-1
   else
    begin
     for p:=j-1 to n-1 do
     a[p]:=a[p+1];
     n:=n-1;
    end;
   i:=i+k-1;
  end
else i:=i+1;
writeln('Уменьшение серий одинаковых чисел');
for i:=1 to n do
write(a[i],' ');
readln
end.
2
Глория
2 / 2 / 1
Регистрация: 07.04.2011
Сообщений: 143
03.11.2011, 12:48 5
Puporev, Среди элементов расположенных ниже главной диагонали матрицы В(6,6) найти элементы удовлетворяющие условию b[I,j]<=k и b[I,j]>i+j и оформить из них одномерный массив.
0
Puporev
Модератор
54590 / 42094 / 29064
Регистрация: 18.05.2008
Сообщений: 99,320
03.11.2011, 13:10 6
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
uses crt;
const n=6;
var a:array[1..n,1..n] of integer;
    b:array[1..(n*n) div 2-n] of integer;//размер массива=половина матрицы без  диагонали
    i,j,k,m:byte;
begin
randomize;
writeln('Массив:');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=random(50);
    write(a[i,j]:4);
   end;
  writeln;
 end;
writeln;
write('Введите целое число k=');
read(k);
m:=0;
for i:=2 to n do
for j:=1 to i-1 do
if(a[i,j]>=i+j)and(a[i,j]<k) then
 begin
  m:=m+1;
  b[m]:=a[i,j];
 end;
if m=0 then write('Элементов, удовлетворяющих условию нет')
else
 begin
  writeln('Массив В:');
  for i:=1 to m do
  write(b[i]:4);
 end;
end.
1
сара93
0 / 0 / 0
Регистрация: 01.11.2011
Сообщений: 29
04.11.2011, 15:17  [ТС] 7
ой спасибо большое я очень признательна
0
04.11.2011, 15:17
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
04.11.2011, 15:17

Преобразовать массив, увеличив каждый его элемент на исходное значение элемента Ak
2. Дан массив A размера N и целое число K (1&lt;=K&lt;=N). Преобразовать массив,...

Поменять местами первую серию массива и его серию с номером K
Дано целое число K (&gt; 1) и целочисленный массив размера N. Поменять местами...

Дан массив размера N. Преобразовать его, вставив перед каждым положительным элементом введенный элемент
Задача: Дан массив размера N. Преобразовать его, вставив перед каждым...


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

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

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