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

Преобразовать массив таким образом, чтобы сначала располагались все положительные элементы

07.06.2016, 04:13. Просмотров 450. Ответов 3
Метки нет (Все метки)

Преобразовать массив таким образом, чтобы сначала располагались все положительные элементы, а потом — все отрицательные (элементы, равные нулю, считать положительными).

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
program masivshik;
uses crt;
var mas:array[1..100] of integer;
    q,rty,pern,posn,n,rsp,i:integer;
label dali;
begin
rsp:=0;rty:=0;
write('Enter number= ');
readln(n);
write('Array start=');
for i:=1 to n do begin
mas[i]:=random(10)-5;
write(mas[i],''); 
end;
writeln;
for i:=1 to n do
if ((i mod 2)=0) then rsp:=mas[i]+rsp;
for i:=1 to n do
if (mas[i]=0) then posn:=i;
for i:=1 to n do
if (mas[i]=0) then begin pern:=i;goto dali;
end;
dali:writeln('NULLs= ',pern);
     writeln('NULLf= ',posn);
for i:=pern to posn do
rty:=mas[i]+rty;
writeln('SUM= ',rty);
write('Array finish= ');
for i:=1 to n do
if (mas[i]<0) then q:=i;
for i:=q+1 to n do 
write(mas[i],' ');
for i:=1 to q do
write(mas[i],' ');
end.
Помогите, пожалуйста, преобразовать!
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
07.06.2016, 04:13
Ответы с готовыми решениями:

Преобразовать массив таким образом, чтобы сначала располагались элементы из интервала, а затем все остальные
Преобразовать массив таким образом, чтобы сначала располагались элементы из...

Преобразовать массив таким образом, чтобы сначала располагались все элементы, равные нулю, а потом все остальные
В одномерном массиве, состоящем из n целых элементов, вычислить 1. Минимальный...

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

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

Преобразовать массив К размером n таким образом, чтобы элементы, равные нулю, располагались после всех остальных
ребят, паскаль со школы не понимал, а тут лаба. помогите, пожалуйста ...

3
Joy
Эксперт Pascal/Delphi
2175 / 1202 / 1438
Регистрация: 29.08.2014
Сообщений: 4,389
07.06.2016, 05:43 2
Переставить элементы в массиве таким образом, чтобы сначала следовали все отрицательные числа - по аналогии сделайте
0
Кукук
0 / 0 / 0
Регистрация: 13.05.2016
Сообщений: 9
08.06.2016, 11:27  [ТС] 3
По тому примеру не могу ничего понять, что, куда. В какую мне строку данные вводить?
0
Puporev
Модератор
55433 / 42554 / 29407
Регистрация: 18.05.2008
Сообщений: 100,671
08.06.2016, 11:50 4
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
uses crt;
const n=15;
var a:array[1..n]of integer;
    i,k,j,x:integer;
begin
clrscr;
randomize;
writeln('Исходный массив:');
for i:=1 to n do
   begin
     a[i]:=random(20)-9;
     write(a[i],' ');
   end;
writeln;
writeln;
k:=0;
for i:=1 to n do
if a[i] >0 then
  begin
    k:=k+1;
    x:=a[i];
    for j:=i downto k+1 do
    a[j]:=a[j-1];
    a[k]:=x;
  end;
writeln('Перестановка:');
for i:=1 to n do
write(a[i],' ');
readln
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
08.06.2016, 11:50

Преобразовать массив К размером n таким образом, чтобы в первой его половине располагались элементы, стоявшие в нечетных позициях
Помогите с заданием. Преобразовать массив К размером n таким образом, чтобы в...

Преобразовать массив так, чтобы сначала располагались все элементы, отличающиеся от максимального не более чем на 20%
Преобразовать массив таким образом, чтобы сначала располагались все элементы,...

Преобразовать массив так, чтобы сначала располагались все элементы, целая часть которых не превышает единицу
В одномерном массиве, состоящем из n вещественных элементов, вычислить\...


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

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

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