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

201

296

Посмотреть ответы 2

Ответы на вопрос:

Loseva72

Информатика

4,8(34 оценок)

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.