Создать массив из 12 целых чисел

Question

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

Answer 1

88

unk1nd123

19 февраля 2023

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.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: