Question

Создать массив из 12 целых чисел.Нечетные элементы увеличить на их номер.Положительные элементы уменьшить в три раза.

Answer 1

Var mas:array[1..12] of integer;   
      mas1:array[1..12] of real;
i:integer;
Begin   
for i:=1 to 12 do begin                         
    mas[i]:=random(5000);                         
  if (mas[i] mod 2 <> 0) then mas[i]:=mas[i]+i;                         
mas1[i]:=mas[i];
    if (mas1[i] > 0) then mas1[i]:=mas1[i]/3;
writeln(mas1[i]);
end;             
end.

Answer 2

Для начала создадим массив из 12 целых чисел:

int[] array = new int[12];

Теперь заполним этот массив случайными числами:

Random random = new Random(); for (int i = 0; i < array.length; i++) { array[i] = random.nextInt(); }

Теперь пройдемся по всем элементам массива и выполним требуемые операции:

for (int i = 0; i < array.length; i++) { if (array[i] % 2 != 0) { // проверяем, является ли элемент нечетным array[i] += i; // увеличиваем нечетный элемент на его номер } if (array[i] > 0) { // проверяем, является ли элемент положительным array[i] /= 3; // уменьшаем положительный элемент в три раза } }

Теперь массив содержит элементы, удовлетворяющие требованиям.