составить массив случайных чисел Паскаль

[lirikoff]

Проблема такая - нужно составить массив случайных чисел, в котором каждый элемент меньше 5 будет увеличиваться на 100, а каждый отрицательный увеличиваться в 10 раз

Просто массив случайных чисел я создать могу - примерно
program mas1;

var

a: array [1..10] of integer;

i: integer;

begin

randomize;

for i:=1 to 10 do

begin

a[i]:=random(20);

write('a(', i, ')=', a[i], ' ')

end;

readln

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

[a9N2k]

Procedure create(n:integer; var a:t);
var i : integer;
begin
randomize;
for i := 1 to n do
    begin
      a[i] := random(201) - 100;
      if a[i] in [0..5] then a[i]:=a[i]+100;
	  if a[i] < 0 then a[i]:=a[i]*100;
	  write(a[i], ' ')
     end;
writeln
end;

[Вадим Мошев]

Пусть A - массив, о котором вы говорили.

Тогда

в котором каждый элемент меньше 5 будет увеличиваться на 100

Делается так:

if a[i] < 5 then a[i]:=a[i] + 100;

а каждый отрицательный увеличиваться в 10 раз

так:

if a[i] < 0 then a[i]:=a[i]*100

На каждой итерации цикла надо проверять оба этих условия

[Вадим Мошев]

Сообщение от a9N2k

Procedure create(n:integer; var a:t);
var i : integer;
begin
randomize;
for i := 1 to n do
    begin
      a[i] := random(201) - 100;
      if a[i] in [0..5] then a[i]:=a[i]+100;
	  if a[i] < 0 then a[i]:=a[i]*100;
	  write(a[i], ' ')
     end;
writeln
end;

Если вы так напишите, то у вас элементы и РАВНЫЕ 5 тоже увеличатся на 100. По-моему, в задании имелось в виду "строго меньше 5"

[a9N2k]

if a[i] < 5 then a[i]:=a[i] + 100;

А вдруг там отрицательное число? Оно тоже меньше 5.
Даже, если, допустим поменять местами проверку отрицательных и меньше 5, тогда отрицательное число умножится в 10 раз и потом еще +100.

[a9N2k]

Сообщение от Вадим Мошев

Если вы так напишите, то у вас элементы и РАВНЫЕ 5 тоже увеличатся на 100. По-моему, в задании имелось в виду "строго меньше 5"

Ладно, тогда:
if (a[i]>0) and (a[i]<5) then...
Или
if a[i] in [0..4] then...

[Вадим Мошев]

Сообщение от a9N2k

А вдруг там отрицательное число? Оно тоже меньше 5.
Даже, если, допустим поменять местами проверку отрицательных и меньше 5, тогда отрицательное число умножится в 10 раз и потом еще +100.

Но ведь в условии задач ничего не сказано, что тот элемент, который меньше 5, не должен быть отрицателен.

К сожалению, сама задача сформулирована таким образом, что решения - неоднозначны (ИМХО).

[lirikoff]

a9N2k и Вадим Мошев
Спасибо за разъяснения! Помогли!
Я тоже заметил, что формулировка несколько туманная, сестра в 10м классе на информатике Паскаль изучает.

[Вадим Мошев]

Это вы ЕЙ помогали?