Сгенерировать массив из 100 случ чисел

11.06.2010, 09:53. **Показов** 2017. **Ответов** 1

Author24 — интернет-сервис помощи студентам

нужно написать программу, которая генерирует массив из 100 случайных целых чисел в диапозоне от -999 до 999. Также есть 4 доп условия:
1) отсортировать все четные, положительные числа, которые больше заданного числа
2) отсортировать все отрицательные числа, которые меньше среднего арифметического
3) отсортировать все числа, которые находятся в диапазоне от А до В
4) отсортировать все нечетные, отрицательные числа, абсолютное значение которых больше заданного числа

Помогите пожалуйста

@Mad_Dog · 11.06.2010, 13:53

Сообщение от самнит

нужно написать программу, которая генерирует массив из 100 случайных целых чисел в диапозоне от -999 до 999.

Delphi

1
2
3

Randomize;
for i:=1 to 100 do
  A[i]:=random(1999)-999;

Добавлено через 35 минут

Сообщение от самнит

3) отсортировать все числа, которые находятся в диапазоне от А до В

Delphi

A:=TryStrToInt(EditA.Text);
B:=TryStrToInt(EditB.Text);
if B>A then
  for i:=A to B-1 do    {линейная сортировка по возрастанию...}
    for j:=i+1 to B do
      if Mass[j]<Mass[i] then
        begin
          Max:=Mass[i];
          Mass[i]:=Mass[j];
          Mass[j]:=Max
        end;

Я, правда, понял что А и В - это диапазоны индексов, но скорее всего ошибся...

Вот исправил ситуацию...

Добавлено через 14 минут

Сообщение от самнит

3) отсортировать все числа, которые находятся в диапазоне от А до В

Delphi

A:=TryStrToInt(EditA.Text);
B:=TryStrToInt(EditB.Text);
if A>B then
  begin
    A:=A+B;
    B:=A-B;
    A:=A-B
  end;
for i:=1 to 99 do
  if (Mass[i]>=A) and (Mass[i]<=B) then
    for j:=i+1 to 100 do
      if (Mass[j]>=A) and (Mass[j]<=B) then
        if Mass[j]<Mass[i] then
          begin
            Max:=Mass[i];
            Mass[i]:=Mass[j];
            Mass[j]:=Max
          end;

Добавлено через 1 час 29 минут
З.Ы. Неправильно написал, нужно TryStrToInt заменить на StrToInt... Sorry...

самнит
		1
	Сгенерировать массив из 100 случ чисел 11.06.2010, 09:53. Показов 2017. Ответов 1 Метки нет (Все метки) нужно написать программу, которая генерирует массив из 100 случайных целых чисел в диапозоне от -999 до 999. Также есть 4 доп условия: 1) отсортировать все четные, положительные числа, которые больше заданного числа 2) отсортировать все отрицательные числа, которые меньше среднего арифметического 3) отсортировать все числа, которые находятся в диапазоне от А до В 4) отсортировать все нечетные, отрицательные числа, абсолютное значение которых больше заданного числа Помогите пожалуйста

	11.06.2010, 13:53

Сгенерировать массив из 100 случ чисел

Решение