uses crt;
var
f:array[1 .. 15] of integer;
s,i:integer;
begin
randomize;
s:=0;
for i:=1 to 15 do begin
a[i]:= random(22)+8;
if (a[i] mod 10=7) then s:=s+a[i];
end;
write (s);
end.
Объяснение:
