Удаление, перестановка элементов в одномерном массиве.

@Лесюня · Регистрация: 10.01.2010

Author24 — интернет-сервис помощи студентам

Дан массив целых чисел (n=10), заполненій случайным образом числами из промежутка [-20..50]
1. удалить из него все элементы . в которых есть цифра 5
2. поменять местами первый положительный и последний отрицательный элементы.
Помогите пожалуйста. срочно нужно,а сделать как не знаю.

@Artishok · 10.01.2010, 20:30

1.

Pascal

uses 
 crt;
var
 a:array[1..20] of integer;
 i,n,j:integer;
 
 
begin
 writeln('введите размерность массива');
 readln(n);
 for i:=1 to n do 
 begin
  a[i]:=random(50)-20;
 end;
  writeln('исходный массив');
 for i:=1 to n do 
 begin
  write(a[i],' ');
 end;
 readln;
 i:=1;
 while i<=n do 
 begin
   if (a[i] div 10=5) or (a[i] mod 10=5) or (a[i] div 10=-5) or (a[i] mod 10=-5) then
  begin
   for j:=i to n-1 do
    a[j]:=a[j+1];
    n:=n-1;
  end;
   i:=i+1;
 end;
  writeln('новый массив');
  for i:=1 to n do
  begin
   write(a[i],' ');
  end;
  readln;
  end.

@Лесюня · 10.01.2010, 20:36 **[ТС]**

спасибо большое)

а ещё к тому же заданию как сделать так,чтоб можно было вставить число К после всех элементов кратных своему номеру. ( К вводить с клавиатуры)

@Artishok · 10.01.2010, 21:33

2.

Pascal

uses
 crt;
var
a:array[1..10] of integer;
i,j,n,k,m,x:integer;
 
 
 
begin
 clrscr;
 randomize;
 writeln('введите размерность массива');
 readln(n);
 for i:=1 to n do begin
  a[i]:=random(50)-20;
  end;
  writeln('исходный массив');
  for i:=1 to n do begin
   write(a[i],' ');
   end;
   readln;
   k:=0;
   for i:=1 to n do begin
    if a[i]>0 then begin
     k:=i;
     break;
    end;
   end;
    m:=0;
   for j:=n downto 1 do begin
    if a[j]<0 then begin
     m:=j;
     break;
    end;
   end;
     
    x:=a[k];
    a[k]:=a[m];
    a[m]:=x;
    
    writeln('новый массив');
    for i:=1 to n do begin
     write(a[i],' ');
     end;
     readln;
     end.

вроде работает

@Лесюня · 10.01.2010, 22:01 **[ТС]**

я, конечно понимаю.что это уже наглость. но реши плз последнюю.)
у нас зачет завтра нужно принести. а я не могу сделать.) Дан массив целых чисел ( п=10) , заполненный случайным образом числами из промежутка [-20..50]
вставить число k после всех элементов кратных своему номеру (k-вводится с клавиатуры)

@кот Бегемот · 10.01.2010, 22:57

Сообщение от Лесюня

я, конечно понимаю.что это уже наглость. но реши плз последнюю.)
у нас зачет завтра нужно принести. а я не могу сделать.) Дан массив целых чисел ( п=10) , заполненный случайным образом числами из промежутка [-20..50]
вставить число k после всех элементов кратных своему номеру (k-вводится с клавиатуры)

Pascal

var
a:array[1..100]of integer;
i,k,t,n:integer;
begin
randomize;
writeln('ishodnyj massiv');
for i:=1 to 10 do
begin
a[i]:=random(71)-20;
write(a[i],' ');
end;
writeln;
write('chislo K=');
readln(k);
t:=10;
n:=10;
repeat
if a[t] mod t=0 then
   begin
   for i:=n+1 downto t+2 do
      a[i]:=a[i-1];
      a[t+1]:=k;
    inc(n);
  end;
dec(t);
until t=0;
writeln('novyj massiv');
for i:=1 to n do
write(a[i],' ');
readln;
end.

@Artishok · 10.01.2010, 23:07

а если б в условии не было ограничение на 10(размер массива),оно бы не выдало б ошибки если я ввёл 100?

@кот Бегемот · 10.01.2010, 23:12

Давайте быть ближе к реальности, есть 10, от него и пляшем, максимально будет 20 элементов, а сколько вы введёте, не имеет значения, k- это число, а не количество

@Лесюня 0 / 0 / 0 Регистрация: 10.01.2010 Сообщений: 15
		1
	Удаление, перестановка элементов в одномерном массиве. 10.01.2010, 19:50. Показов 1221. Ответов 7 Метки нет (Все метки) Дан массив целых чисел (n=10), заполненій случайным образом числами из промежутка [-20..50] 1. удалить из него все элементы . в которых есть цифра 5 2. поменять местами первый положительный и последний отрицательный элементы. Помогите пожалуйста. срочно нужно,а сделать как не знаю. 0

@Лесюня 0 / 0 / 0 Регистрация: 10.01.2010 Сообщений: 15
	10.01.2010, 20:36 [ТС]	3
	спасибо большое) а ещё к тому же заданию как сделать так,чтоб можно было вставить число К после всех элементов кратных своему номеру. ( К вводить с клавиатуры) 0

@Лесюня 0 / 0 / 0 Регистрация: 10.01.2010 Сообщений: 15
	10.01.2010, 22:01 [ТС]	5
	я, конечно понимаю.что это уже наглость. но реши плз последнюю.) у нас зачет завтра нужно принести. а я не могу сделать.) Дан массив целых чисел ( п=10) , заполненный случайным образом числами из промежутка [-20..50] вставить число k после всех элементов кратных своему номеру (k-вводится с клавиатуры) 0

@Artishok ЧакЭ одобряЭ 285 / 284 / 86 Регистрация: 27.12.2009 Сообщений: 1,767
	10.01.2010, 23:07	7
	а если б в условии не было ограничение на 10(размер массива),оно бы не выдало б ошибки если я ввёл 100? 0

@кот Бегемот Платежеспособный зверь 8926 / 4354 / 1642 Регистрация: 28.10.2009 Сообщений: 11,568
	10.01.2010, 23:12	8
	Давайте быть ближе к реальности, есть 10, от него и пляшем, максимально будет 20 элементов, а сколько вы введёте, не имеет значения, k- это число, а не количество 0