Write a program that fills the array a [1..12] with random integers in the range 1 to 11

Write a program that fills the array a [1..12] with random integers in the range 1 to 11, then transforms it by squaring all the even-numbered elements.

Let’s write a program in the Pascal programming language

First option:

Program Program1;

var

a: array [1..12] of integer;

i: integer;

begin

randomize;

Writeln (‘Source array:’);

for i: = 1 to 11 do

begin

a [i]: = random (11) +1;

writeln (‘a [‘, i, ‘] =’, a [i]);

end;

for i: = 1 to 10 do

if i mod 2 = 0 then a [i]: = sqr (a [i]);

Writeln (‘Transformed array:’);

for i: = 1 to 11 do

writeln (‘a [‘, i, ‘] =’, a [i]);

end.

Second option:

Var ar: array [1..12] of integer;

i: integer;

begin;

randomize;

writeln (Main array :);

for i: = 1 to 12 do

begin;

ar [i]: = random (1,11);

writeln (ar [i]);

end;

writeln (Changed array :);

for i: = 1 to 12 do

begin;

if ar [i] mod 2 = 0 then ar [i]: = sqr (ar [i]);

writeln (ar [i]);

end;

end.