by

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

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

  • Var ar:array1..12 of integer;
    i:integer;
    begin;
    randomize;
    writeln(Main array:);
    for i:=1 to 12 do
    begin;
    ari:=random(1,11);
    writeln(ari);
    end;
    writeln(Changed array:);
    for i:=1 to 12 do
    begin;
    if ari mod 2=0 then ari:=sqr(ari);
    writeln(ari);
    end;
    end.
  • Uses crt;
    Var mas:array1..12of integer;
    a:integer;
    Begin
    randomize;
    for a:=1 to 12 do
    begin
    masa:=random(11)+1;
    end;
    For a:=1 to 12 do
    begin
    Write(masa:1, );
    end;
    for a:=1 to 12 do
    begin
    if (masa mod 2 =0) then masa:=sqr(masa);
    end;
    Writeln();
    For a:=1 to 12 do
    begin
    Write(masa:1, );
    end;
    Writeln();
    end.