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

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

28.05.2013, 12:57. Просмотров 770. Ответов 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
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Организуйте массив, содержащий 20 различных целых чисел. Отсортируйте отдельно (Pascal ABC):

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

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

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

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

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

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

1
chizz
983 / 500 / 101
Регистрация: 19.03.2013
Сообщений: 3,100
Записей в блоге: 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
Привет! Вот еще темы с решениями:

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

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

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

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


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

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

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