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

Question

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

Answer 1

Program ex;
var i:integer ;mas:array [1..10] of integer;
begin 
 for i:=1 to 10 do   
 begin   
  mas[i]:=random(10);   
  if (mas[i] mod 2)=0 then     
   mas[i]:=mas[i]+1;   
 end;
end.

Comments

program ex;
uses crt;
var i:integer ;mas:array [1..10] of integer;
begin
for i:=1 to 10 do
begin
mas[i]:=random(10);
if (mas[i] mod 2)=0 then
mas[i]:=mas[i]+1;
end;

end.

---

паскаль ABC а не паскаль ABC.NET

---

Что :D ?

---

Вам скриншот прислать программы в Паскаль АБС ?