Uses crt;
const N=10;
var a:array [1..N] of integer;
x,k:integer;
begin
k:=0;
for x:=1 to 10 do
begin
a[x]:=random(1000)+1;
writeln('a[',x,']:',a[x]);
if (a[x]>=100) and (a[x]<=999) then
if (a[x] mod 10=7) or (a[x] div 100=7)
or (a[x] div 10 mod 10=7) then inc(k);
end;
writeln('Количество трехзначных элементов, содержащих цифру 7:',k);
<span>end.</span>
Только приветствие , ничего больше не несет
здоров!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! :)