Задание:
Составьте программу, которая заполняет массив а [1… 10] случайными целыми числами в диапозоне от 1 до 10, затем преобразовывает его, увеличивая всеэлементы с четными значениями на 1. Если элементы с четными значениями отсутствуют, оставить массим без изменений.
Решение:
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.
Знаете другой ответ?