Создать массив из 12 целых чисел.Нечетные элементы увеличить на их номер.Положительные элементы уменьшить в три раза.
вот скриншот
http://i58.fastpic.ru/big/2013/1209/8e/ed1274423223e0993067c26a62305a8e.png
я скопировала все что ты мне написал и вставила и он все рассчитал ,спасибо
удачи в покорении информатики :)
214.6666666666671183.33333333333846.6666666666671371.33333333333981.333333333333792.666666666667,вот такои у меня получился ответ1123.33333333333304.666666666667431.3333333333331057.33333333333804.66666666666775.6666666666667
проверь
я не смогу проверить, ведь числа рандомные :)
ок
рандом это значит случайность
в этом коде я сделал рандом от 0 до 4999
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 и выполняю уже деление