0 / 0 / 0
Регистрация: 15.11.2010
Сообщений: 6
1

Удалить все положительные элементы, имеющие четный порядковый номер, идущие после минимального элемента массива.

15.11.2010, 21:30. Показов 1753. Ответов 2
Метки нет (Все метки)

Задание. Выполнить действия над одномерным массивом.
Удалить все положительные элементы, имеющие четный порядковый номер, идущие после минимального элемента массива.
В принципе сам пытался сделать, но попал в просак... Удаляются только положительные элементы, а программа даже внимания не обращает на четный номер.
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
uses crt; 
type arr=array[1..15] of integer; 
var a:arr; 
    i,j,n: byte; 
    i_min: byte; 
    min: integer; 
Begin 
  {$R+} 
  clrscr; 
  n:=15; 
  randomize; 
  writeln ('Ishodi massiv'); 
  for i:=1 to n do 
  begin 
  a[i]:=-20+random(41); 
  write(a[i]:4); 
  end; 
  writeln; 
  min:=a[1]; 
  i_min:=1; 
  for i:=2 to n do 
    if a[i]<min then 
    begin 
    min:=a[i]; 
    i_min:=i; 
    end; 
i:=i_min+1; 
          while i<=n do 
          begin 
          if (a[i]>0) and (i mod 2=0) then 
          begin 
          for j:=i to n-1 do 
          a[j]:=a[j+1]; 
          n:=n-1; 
          end 
          else i:=i+1; 
          end; 
          writeln (' Rezultat '); 
          for i:=1 to n do 
          write (a[i]:4); 
          readln; 
          {$R+} 
end.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
15.11.2010, 21:30
Ответы с готовыми решениями:

В одномерном массиве А=(а1,а2...аn) все положительные элементы, имеющие чётный порядковый номер
Помогите плиз написать программу: В одномерном массиве А=(а1,а2...аn) все положительные элементы,...

Все положительные элементы массива, имеющие четный порядковый номер, переписать в начало массива
В одномерном массивеA=(a1, а2, ..., а n) все положительные элементы, имеющие четный...

В массиве удалить все положительные элементы, имеющие четный порядковый номер
В массиве А=(a1,a2,...,an) удалить все положительные эллементы имеющие четный порядковый номер и...

Массив. Удалить все положительные элементы, имеющие четный порядковый номер, идущие после минимального элемента массива
11. В массиве A=(a1, а2, ..., аn) удалить все положительные элементы, имеющие четный порядковый...

2
Почетный модератор
64254 / 47554 / 32739
Регистрация: 18.05.2008
Сообщений: 115,182
15.11.2010, 21:44 2
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
uses crt;
type arr=array[1..15] of integer;
var a:arr;
    i,j,n: byte;
    i_min: byte;
    min: integer;
Begin
  clrscr;
  n:=15;
  randomize;
  writeln ('Ishodi massiv');
  for i:=1 to n do
  begin
  a[i]:=-20+random(41);
  write(a[i]:4);
  end;
  writeln;
  min:=a[1];
  i_min:=1;
  for i:=2 to n do
  if a[i]<min then
   begin
    min:=a[i];
    i_min:=i;
   end;
i:=n; //начать нужно с конца, чтобы индексы не менялись у непроверенных
while i>=i_min+1 do
if (a[i]>0) and (i mod 2=0) then
 begin
  for j:=i to n-1 do
  a[j]:=a[j+1];
  n:=n-1; //удалили
  i:=i-1; //к началу
 end
else i:=i-1; //не удалили, просто к началу
writeln (' Rezultat ');
for i:=1 to n do
write (a[i]:4);
readln;
end.
0
0 / 0 / 0
Регистрация: 15.11.2010
Сообщений: 6
15.11.2010, 21:48  [ТС] 3
Большое спасибо
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
15.11.2010, 21:48
Помогаю со студенческими работами здесь

В массиве A=(a1, а2, ., an) удалить все положительные элементы, имеющие четный порядковый номер, идущие после минимального элемента массива
В массиве A=(a1, а2, ..., an) удалить все положительные элементы, имеющие четный порядковый номер,...

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

Одномерные и Двумерные массивы. Удалить все положительные элементы, имеющие четный порядковый номер
В массиве A=(a1, а2, ..., аn) удалить все положительные элементы, имеющие четный порядковый номер,...

Заменить нулями все положительные элементы массива, идущие после минимального элемента
Решить задачу для динамического массива, не используя индексацию. В одномерном массиве заменить...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru