Из массива А, состоящего из n целых элементов, получить массив В, в который войдут все элементы массива А, кратные 3.Число n и элементы массива А ввести с клавиатуры. На экран вывести массив В.

program znanija;
Var
    a, res: array of integer;
    x, N, i, k: integer;
begin
    readln(N);
    SetLength(a,N);
    SetLength(res,N);
    
    for i := 0 to N - 1 do
        readln(a[i]);
        
    k := 0;
    for i := 0 to N - 1 do
           if a[i] mod 3 = 0 then
           begin
               res[k] := a[i];
               k := k + 1;
           end;
    for i := 0 to k - 1 do
        writeln(res[i]);
     
end.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.