Дан массив 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.
Answers & Comments
Verified answer
//PascalABC.NET 3.1 сборка 1219begin
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.