Дан массив A(n). У нечётных элементов отбросить дробную часть числа, а у элементов с...

Question

Дан массив A(n). У нечётных элементов отбросить дробную часть числа, а у элементов с индексами, дающими остаток 1 при делении на 3, отбросить целую часть числа.

Answer 1

//PascalABC.NET 3.1 сборка 1219
begin
    var a := ArrRandomReal(ReadInteger('n='), 0, 9);
    PrintLn(a);
    for var i := Low(a) to High(a) do
    begin
        if i mod 2 = 1 then a[i] := Trunc(a[i]);
        if i mod 3 = 1 then a[i] := Frac(a[i]);
    end;
    Println(a);
end.

Comments

Спасибо большое :3