Question

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

Answer 1

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.

Answer 2

Uses crt;
Var mas:array[1..12]of integer;
a:integer;
Begin
randomize;
for a:=1 to 12 do
begin
mas[a]:=random(11)+1;
end;
For a:=1 to 12 do
begin
Write(mas[a]:1,'    ');
end;
for a:=1 to 12 do
begin
if (mas[a] mod 2 =0) then mas[a]:=sqr(mas[a]);
end;
Writeln();
For a:=1 to 12 do
begin
Write(mas[a]:1,'   ');
end;
Writeln();
end.