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

Var ar: array[1..10] of integer; i,k: integer; begin; randomize; writeln('array: '); for i: =1 to 10 do   begin;   ar[i]: =random(1,10);   write(ar[i]: 4);   if ar[i] mod 2=0 then ar[i]: =ar[i]+1;   end; writeln; writeln('final array: '); for i: =1 to 10 do write(ar[i]: 4); end.

нет. компьютер может выполнять команды (программы) которые дает ему человек, сам по себе он работать не может, следовательно он не сможет заменить человека.

 

рождения 30.05.95

300