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

Составим программку на языке программирования Pascal

1-ый вариант:

Program Program1;

var

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

i:integer;

begin

randomize;

Writeln(Начальный массив: );

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(Перевоплощенный массив: );

for i:=1 to 11 do

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

end.

2-ой вариант:

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.