with
Ada.Text_IO,
Ada.Integer_Text_IO;
use
Ada.Text_IO,
Ada.Integer_Text_IO;
procedure N91646061 is
type TArray is array (Integer range <>) of Integer;
A: access TArray;
N: Integer;
K: Integer := 0;
begin
Put("Введите размер массива: ");
Get(N);
A := new TArray(1 .. N);
Put_Line("Введите элементы массива: ");
for i in A'Range loop
Put("A(" & Integer'Image(i) & ") = ");
Get(A(i));
end loop;
for i in A'Range loop
if A(i) mod 3 = 0 then
K := K + 1;
end if;
end loop;
Put_Line("Кол-во элементов, кратных 3: " & Integer'Image(K));
declare
Key: Character;
begin
New_Line(2);
Put("Для завершения работы нажмите любую клавишу... ");
Get_Immediate(Key);
end;
end N91646061;
В Паскале? Пиши на почту сделаю