ПОМОГИТЕ Составьте программу которая заполняет массив a[1..10] случайными целыми числами в диапазоне от 1 до 10, затем преобразовает его, увеличивая все элементы с четными значениями на 1. Если элементы с четными значениями отс...
ПОМОГИТЕ
Составьте программу которая заполняет массив a[1..10] случайными целыми числами в диапазоне от 1 до 10, затем преобразовает его, увеличивая все элементы с четными значениями на 1. Если элементы с четными значениями отсутствуют, составить массив без изменений
Гость
Ответ(ы) на вопрос:
Гостьprogram Пишите_на_каком_языке_отвечать;
uses System.Math;
var
a: array [1..10] of integer;
i: integer;
begin
for I := low(A) to High(A) do
begin
a[I] := randomrange(1, 10) ;
if a[I] mod 2 = 0 then
inc(a[I]);
end;
end.
Не нашли ответ?
Похожие вопросы