var arr: array [1..9] of integer;
i, num: integer;
begin
i := 1;
while (i <= 9) do
readln(num);
if (num mod 3 = 0) then
arr[i] := num;
i := i + 1;
end;
end.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
var arr: array [1..9] of integer;
i, num: integer;
begin
i := 1;
while (i <= 9) do
begin
readln(num);
if (num mod 3 = 0) then
begin
arr[i] := num;
i := i + 1;
end;
end;
end.