Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.57/7: Рейтинг темы: голосов - 7, средняя оценка - 4.57
Чувак
1 / 1 / 1
Регистрация: 04.01.2012
Сообщений: 62
#1

Массив. Изменить таким образом, что сначала идут числа, модуль которых меньше 1, потом больше

10.05.2012, 13:20. Просмотров 1289. Ответов 1
Метки нет (Все метки)

Надо написать программу, выводящую массив таким образом, что сначала идут числа, модуль которых меньше 1, потом больше. В моей проге выводит не все числа из первого массива. Помогите.
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 massiv1;
uses crt;
const n=10;
var a,b:array[1..n] of real;
min, k, index:real; i:integer;
begin
clrscr;
randomize;
for i:=1 to n do
 begin
 a[i]:=4*random-2;
 write(a[i]:6:2);
 b[i]:=4*random-2;
 write(b[i]:6:2);
 end;
writeln;
min:=a[1];
for i:=2 to n do
  begin
     if min>a[i] then
       min:=a[i];
  end;
for i:=1 to n do
  if a[i]=min then
    writeln('minimalnyi element=', min:0:2,' ', 'indeks=', i);
k:=0; 
for i:=1 to n do 
if abs(a[i]) < 1 then begin k:=k+1; b[k]:=a[i]; end; 
for i:=1 to n do 
if abs(a[i]) >= 1 then begin k:=k+1; b[k]:=a[i]; end; 
writeln('novyi massiv'); 
for j:=1 to n do 
write( b[i],' '); 
readln;
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
10.05.2012, 13:20
Ответы с готовыми решениями:

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

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

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

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

Получить массив Y(N) такой, что в нем сначала идут положительные числа, затем отрицательные из X.
дан массив X(N). Получить массив Y(N) такой, что в нем сначала идут...

1
илья1995
3 / 3 / 3
Регистрация: 17.10.2011
Сообщений: 169
10.05.2012, 13:50 #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
program prog;
 
Uses crt;
var
  i: integer;
  minAbs: integer;
  a: array[1..300] of integer;
  n:byte;
begin
clrscr;
writeln('vvesite n');
readln(n);
  Randomize;
  WriteLn('array:');
  for i:= 1 to n do begin
    a[i]:= Random(100) - 20;
    Write(a[i], ' ');
  end;
 
  WriteLn;
 
  minAbs:= Abs(a[1]);
  for i:= 2 to N do
    if Abs(a[i]) < minAbs then
      minAbs:= Abs(a[i]);
  WriteLn('result: ', minAbs);
 
  ReadLn;
end.
2
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
10.05.2012, 13:50

Получить из массива новый в котором сначала идут положительные числа, затем нули и потом отрицательные
Дан массив Х(N). Получить новый массив Y(N), такой, что в нем сначала идут...

Упорядочить массив следующим образом: сначала идут четные значения, затем нечетные
Дан массив из 50-ти элементов. Упорядочить следующим образом: сначала идут...

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


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

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

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