Задание:
Создать массив из 12 целых чисел. Нечетные элементы увеличить на их номер. Положительные элементы уменьшить в трираза.
Решение:
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.
Знаете другой ответ?