Опубликовано 22.08.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

//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.