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

1
проверь
я не смогу проверить, ведь числа рандомные :)
ок
рандом это значит случайность
в этом коде я сделал рандом от 0 до 4999

Ответы и объяснения

2013-12-09T11:39:27+04:00
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.
сек надо потправить кое что
подправить
тогда так. я использовал 2массива потому-что переменные типа integer нельзя делить на 3, а real можно, но к real не применима операция mod, поэтому я после проверки на нечётность, перевожу это значение в массив real и выполняю уже деление