Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.71/7: Рейтинг темы: голосов - 7, средняя оценка - 4.71
2 / 2 / 2
Регистрация: 28.02.2012
Сообщений: 24
1

Составить программу удаления последнего отрицательного элемента одномерного массива A(N)

28.02.2012, 18:47. Просмотров 1398. Ответов 2
Метки нет (Все метки)

Целый день ломаю голову,никак не получается..
Вот я что то пытался сделать (ерунда конечно, но все же...старался)
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
var a,b: array [1..100] of integer;
i,n,k,s:integer;
begin
write('N= '); read(n);
for i:=1 to n do read(a[i]);
s:=0;k:=0;
for i:=1 to n do
if a[i]<0 then s:=s+1;
writeln('s=',s);
 
while s>=1 do
begin
for i:=1 to n do
if a[i]<0 then begin k:=k+1; b[k]:=a[i]; s:=s-1; end
else begin k:=k+1; b[k]:=a[i]; end;
end;
 
for i:=1 to k do write(b[k],' ');
end.
Помогите, пожалуйста.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
28.02.2012, 18:47
Ответы с готовыми решениями:

Составить программу для удаления из массива первого отрицательного элемента
Составить программу для удаления из массива первого отрицательного элемента. Массив заполнить...

Найти номер последнего четного и отрицательного элемента одномерного массива
Найти номер последнего четного и отрицательного элемента одномерного массива, то вычислить...

Найти сумму целых частей элементов массива, расположенных после последнего отрицательного элемента одномерного
Как найти сумму целых частей элементов массива, расположенных после последнего отрицательного...

Написать программу нахождения первого отрицательного элемента одномерного числового массива
пропустил тему не могу сообразить... есле кто то может написать программу, помогите! Буду...

2
35 / 14 / 18
Регистрация: 26.02.2012
Сообщений: 30
28.02.2012, 19:05 2
Составить программу удаления последнего отрицательного элемента одномерного массива A(N)
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
var
a: array [1..100] of integer;
i,n,k:integer;
begin
randomize;
repeat
  write('N= ');
  read(n);
until n in[1..100];
writeln('Isxodniy massiv:');
for i:=1 to n do
  begin
    a[i]:=-50+random(101);
    write(a[i]:4);
  end;
writeln;
k:=0;
for i:=1 to n do
  if a[i]<0 then
        k:=i;
  if k>0 then
    begin
      for i:=k to n-1 do
        a[i]:=a[i+1];
        n:=n-1;
      if n>0 then
        begin
          writeln('Poluchenniy massiv:');
          for i:=1 to n do
          write(a[i]:4);
        end
      else
        write('V massive net elementov posle udaleniya');
    end
  else
    write('V massive net otritsatelnix elementov');
readln;
end.
1
2 / 2 / 2
Регистрация: 28.02.2012
Сообщений: 24
28.02.2012, 20:13  [ТС] 3
Большое спасибо!
Но все таки сделал по-своему через 2-ой массив.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
var a,b:array [1..100] of integer;
i,n,k,t,s:integer;
 
begin
s:=0; k:=0; t:=0;
write('N= '); read(n);
for i:=1 to n do read(a[i]);
 
for i:=1 to n do
if a[i]<0 then begin k:=a[i]; t:=i; end;
writeln('k=',k); writeln('t=',t); for i:=1 to n do write(a[i],' ');
writeln;
for i:=1 to n do
if (a[i]<>k) or (i<>t) then
begin s:=s+1; b[s]:=a[i]; end;
for i:=1 to s do write(b[i],' ')
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
28.02.2012, 20:13

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Составить программу удаления элементов целочисленного одномерного массива
Составьте программу удаления элементов целочисленного одномерного массива A(N),кратких первому...

Составить программу удаления элементов целочисленного одномерного массива A(N), кратных первому элементу
Здравствуйте, уважаемые! Очень нужна ваша помощь. Нужно составить программу удаления элементов...

Составить программу удаления максимального элемента массива
1. Cоставить программу удаления максимального элемента массива Буду Благодарен!

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


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

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

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