program kratnie;

{$APPTYPE CONSOLE}

uses
SysUtils;
var a,b:array [1..150] of integer;
i,j,n:integer;
begin
writeln('Vvedite kolichestvo elementov massiva');
readln(n);
writeln('Vvedite massiv');
for i:=1 to n do read (a[i]);
readln;

j:=0;
for i:=1 to n do
if a[i] mod 5=0 then begin
j:=j+1;
b[j]:=a[i];
end;
if j=0 then writeln ('Net elementov,kratnix 5')
else begin writeln ('Poluchivshiesia chisla');
for i:=1 to j do write (b[i]);
end;
writeln;
readln;
end.





Чтобы не видеть здесь видео-рекламу достаточно стать зарегистрированным пользователем.
Чтобы не видеть никакую рекламу на сайте, нужно стать VIP-пользователем.
Это можно сделать совершенно бесплатно. Читайте подробности тут.