Составьте программу, которая заполняет массив а [1…

Question

Составьте программу, которая заполняет массив а [1… 10] случайными целыми числами в диапозоне от 1 до 10, затем преобразовывает его, увеличивая всеэлементы с четными значениями на 1. Если элементы с четными значениями отсутствуют, оставить массим без изменений.

Answer 1

38

lavrxp

13 августа 2022

Program Z_n; var a: array[1… 10] of byte; i: byte; Beginwriteln; Randomize; For i: =1 to 10 do begina[i]: =random (10); write (a[i],'); if (a[i] mod 2)=0 then a[i]: =a[i]+1; end; writeln; For i: =1 to 10 doWrite (a[i],'); end.

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

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

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

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

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