Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/4: Рейтинг темы: голосов - 4, средняя оценка - 5.00
slimit
0 / 0 / 0
Регистрация: 28.05.2013
Сообщений: 5
#1

Организуйте массив, содержащий 20 различных целых чисел. Отсортируйте отдельно

28.05.2013, 12:57. Просмотров 781. Ответов 1
Метки нет (Все метки)

Задача №14
Организуйте массив, содержащий 20 различных целых чисел. Отсортируйте отдельно элементы с четными индексами по
возрастанию, и элементы с нечетными индексами по убыванию.

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
var
 a:array[1..20]of integer;
 i,s,j,w:integer;
begin
 randomize;
 for i:=1 to 20 do begin
  a[i]:=random(50)-25;
  write(a[i]:4);
 end;
 writeln;
 i:=2;
 while i<20 do begin
  if a[i] mod 2=0 then begin
   j:=i;
   w:=i;
   while a[w] mod 2=0 do dec(w);
   while (a[j]<a[w]) and (j>1) and (w>1) do begin
    s:=a[j];
    a[j]:=a[w];
    a[w]:=s;
    j:=w;
    while a[w] mod 2=0 do dec(w);
   end;
  end else begin
   j:=i;
   w:=i;
   while a[w] mod 2<>0 do dec(w);
   while (a[j]<a[w]) and (j>1) and (w>1) do begin
    s:=a[j];
    a[j]:=a[w];
    a[w]:=s;
    j:=w;
    while a[w] mod 2<>0 do dec(w);
   end;
  end;
  inc(i);
 end;
 for i:=1 to 15 do write(a[i]:4);
 readln;
end.
выдает ошибку: "выход за границы диапазона измерения индекса 1..20"

Добавлено через 1 час 12 минут
хелп плиз!!!
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
28.05.2013, 12:57
Ответы с готовыми решениями:

2. Организуйте массив, содержащий 20 различных символов. Отсортируйте его по возрастанию
2. Организуйте массив, содержащий 20 различных символов. Отсортируйте его по...

Создайте целочисленный массив А, содержащий 20 различных чисел. Отсортируйте первую половину массива А по возрастанию, а вторую по убыванию
Создайте целочисленный массив А, содержащий 20 различных чисел. Отсортируйте...

Создать массив, содержащий 7 различных целых чисел
Кто разбирается в паскале, помогите пожалуйста решить задачу: Создайте...

Дан массив целых чисел, содержащий 10 элементов,
Дан массив целых чисел, содержащий 10 элементов, записать в этот же массив...

Упорядочить по неубыванию массив, содержащий 20 целых чисел
Упорядочить по неубыванию массив, содержащий 20 целых чисел.

1
chizz
983 / 501 / 101
Регистрация: 19.03.2013
Сообщений: 3,106
Записей в блоге: 19
Завершенные тесты: 1
28.05.2013, 13:26 #2
Pascal
1
while a[w] mod 2=0 do dec(w);
Что это делает? Тут он походу и выходит за границы. Уменьшает w до 0 и выдает ошибку..
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
28.05.2013, 13:26

Дан массив целых чисел, содержащий 10 элементов. Составить новый массив, записать в него сначала все положительные элементы исходного массива
, потом все отрицательные элементы, потом нули... Да прибудет с вами сила...

Дан массив, содержащий 20 неотрицательных целых чисел. Составьте алгоритм
Дан массив, содержащий 20 неотрицательных целых чисел. Составьте алгоритм и...

Организуйте массив, состоящий из 10 различных символов. Первую половину массива отсортировать по росту, а вторую по
Организуйте массив, состоящий из 10 различных символов. Первую половину массива...


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

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

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